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, TITLE TSSPOL T/S SPOOLING ROUTINES 

COPYRIGHT <C> 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 
1986, 1987, 1988. 

S&H COMPUTER SYSTEMS, INC. 
NASHVILLE, TENNESSEE 

THE ROUTINES IN THIS MODULE IMPLEMENT AUTOMATIC 
SPOOLING TO OUTPUT DEVICES SUCH AS LINE PRINTERS. 

. CSECT TSSPOL 
TSSPOL: . RAD50 /SPL/ > System overlay ID word 

. MCALL . READW, . WRITW, . PRINT 

J 

. ENABL LC 
. DSABL GBL 

MACROS TO ENABLE AND DISABLE INTERRUPTS. 

. MACRO DISABL 
BIS #340, S#PSW 
. ENDM DISABL 

. MACRO ENABL 

BIC INTPRI,@#PSW 

. ENDM ENABL 

Macro definition to call global routines residing in mapped system regions. 

. MACRO OCALL ENTADD 
.IF B, ENTADD 

.ERROR ; OCALL SPECIFIED WITH NO ENTRY ADDRESS 

. MEXIT 
. ENDC 

CALL OVRHC i CALL THE OVERLAY HANDLER 

.WORD ENTADD i SPECIFY THE ENTRY POINT 

. ENDM 



GLOBAL DEFINITIONS 

. GLOBL CHKSD, SDCLOS, TSSPOL, EMSPHL, EMSPNH 
. GLOBL SPOLGO, SPLSHF, SPLINI, SFLGPG 
. GLOBL SDMOVE, SPLTOP, SPLDEL 

GLOBAL REFERENCES 



. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 



DF*CLS, 
EMTBLK, 
CORUSR, 
SDFRBL, 
NFRESB, 
SFCBSZ, 
SD*SMS, 
SDFORM, 



DS*NRD, DVSTAT, Q. FUNC, DF*ENT, EMTXIT 
SDCB, SDCBND, NUMDEV, PNAME, DX*NRD, DVFLAG 
SPLND, SPLNB, SF*BN1, CSIBUF, CSIBND 
PVSPBL, UFORM, SPDLBF 
SBSTXT, QMSG, GTSYMB, LUNAME 
SF*1ST, SF*DEL, SDNAME, DMYDEV 
SD*SNG, SFFORM, NSPLFL, NSPLBL 
SDANAM, SDSFLK, SD*WFM, SD*FLG 
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69 




70 




71 




72 




73 




74 




75 




76 




77 




78 




79 




80 




81 




82 




83 




84 




85 000002 


000000 


86 000004 


000000 


87 000006 


000000 


88 000010 


015 


89 




90 




91 




92 


000015 


93 


000012 


94 


000007 


95 


000135 



. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
. GLOBL 
Global for ma 
. GLOBL 



*DILUP, LSW, SFID, SPOLID 

NESB, SD*BWT, FMM5G, SPLERR, FLOP AG 

SD*HLD, SF*HLD, SNBUX, LPRQG, LPROJ 

SXBPNT, SXSFCB, SDDVU 

FILSPC. CS*SPL, SPUBUF, SPLCHN, SPLARG 

INTPRI, PSW, CHNADR, C. CSW 

S*SPCB, S*SPDB, USPLCH 

SPLBHD, SFCB, SFCBND, SYBFAD 

UREGO, QNSPND, CHKABT 

SFUSER, SFFLAG, SFCHAN, SFFILE 

SFSDCB, SFNMBL, SFSTRT> SFFLNK 

SFQLNK, SF*BSY, SDCHAN, SDFLAG 

SDSFCB, SDFLNK, SDBUF1, SDBUF2 

CTRLTT, SDWLST, FREUSR 

SDBLK, SDFHD, SD*INR 

SD*DEL> SDCBSZ, SBUFWD 

SFCBFH, SD*CLR, SD*BAK, SD*RSV 

SDBU, SDBUL5, SDSKIP, LPRG1, LPRG2 

CHNNUM, URO, GETUCH, SPUBND 

GETSYG, Q. BLKN 

Q. WCNT, Q. COMP, Q. CHAN, SYQIO 

pped system handler 

OVRHC 



LOCAL DATA CELLS 



oi; 



GRNTBL: 


. WORD 





GRNEND: 


. WORD 





SPBWHD: 


. WORD 





CRTXT: 


. BYTE 


CR,LF 


i MISC. 


PARAMETERS. 


i 

CR 


= 


15 


LF 


= 


12 


BELL 


s= 


7 


RSQBR 


= 


135 



Addr of start of spool file allocation table 
Addr of end of spool file allocation table 
SPOOL DEVICES WAITING FOR BUFFERS 



CARRIAGE RETURN 

LINE FEED 

BELL 

RIGHT SQUARE BRACKET 
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000014 


010346 
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000016 


010446 
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000020 


012703 


005252' 


14 


000024 


010367 


177752 


15 


000030 


016702 


OOOOOOG 


16 


000034 


062702 


000017 


17 


000040 


072227 


177774 


IS 


000044 


012700 


177777 


19 


000050 


010023 




20 


000052 


077202 




21 


000054 


010367 


177724 


22 








23 








24 








25 








26 


000060 


012702 


OOOOOOG 


27 


000064 


001414 




28 


000066 


010367 


OOOOOOG 


29 


000072 


000407 




30 


000074 


020327 


137000 


31 


000100 


103005 




32 


000102 


010300 




33 


000104 


062703 


001000 


34 


000110 


010310 




35 


000112 


077210 




36 


000114 


005013 




37 








38 








39 








40 


000116 


016702 


OOOOOOG 


41 


000122 


010267 


OOOOOOG 


42 


000126 


016703 


OOOOOOG 


43 


000132 


010204 




44 


000134 


012700 


OOOOOOC 


45 


000140 


005024 




46 


000142 


077002 




47 


000144 


020327 


000001 


48 


000150 


001404 




49 


000152 


010462 


OOOOOOG 


50 


000156 


010402 




51 


000160 


077313 




52 








53 








54 








55 


000162 


016702 


OOOOOOG 


56 


000166 


162702 


OOOOOOC 


57 


000172 


010267 


OOOOOOG 



. SBTTL SPLINI 



Initialization for spooling system 



SPLINI is called during system initialization to perform spooler related 
system initialization. 



SPLINI: 



MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP> 
R4, -<SP> 



Allocate spool file table at end of this segment 



10*: 



MOV 
MOV 
MOV 
ADD 
ASH 
MOV 
MOV 
SOB 
MOV 



#SPLTOP, R3 
R3, GRNTBL 
NSPLBL, R2 
#15. ,R2 
#-4i R2 
#-1. RO 
RO, (R3) + 
R2, 10$ 
R3, GRNEND 



Get address of start of buffer area 

Set address of start of table 

Get # blocks for spool file 

Bound up to word boundary 

Divide by 16 to get # words to allocate 

Get word with all bits set 

Set all bits on in table 

Fill entire table with ones 

Set address of end of table 



1*. 



2*: 

4*: 



3*: 



6*: 
8*: 



Allocate spool buffers within this system overlay region just beyond 
the end of the code. 

Get number of spool buffers wanted 

Br if none wanted 

Set pointer to start of buffer list 

Would another buffer overflow segment? 

Br if yes 

Get address of current buffer 

Calculate address of next buffer 

Make current buffer point to next buffer 

Loop for all buffers except last 

Make link in last buffer be zero 

Initialize spool file control block linked list 



MOV 


#SPLNB> R2 


BEQ 


3* 


MOV 


R3, SPLBHD 


BR 


2$ 


CMP 


R3, #137000 


BHIS 


4* 


MOV 


R3, RO 


ADD 


#512. ,R3 


MOV 


R3, <R0) 


SOB 


R2i 1* 


CLR 


<R3> 



MOV SFCB, R2 

MOV R2, SFCBFH 

MOV NSPLFL, R3 

MOV R2, R4 

MOV #SFCBSZ/2, RO 

CLR (R4)+ 

SOB RO/ 8$ 

CMP R3, #1 

BEQ 5* 

MOV R4, SFQLNK<R2) 

MOV R4, R2 

SOB R3, 6* 



Point to start of SFCB area 
Set this as the 1st free SFCB 
Get # of SFCB's 
Point to next SFCB 
Get # words in SFCB 
Zero the SFCB 

; Is this the last SFCB? 

> Br if yes 

i Set forward link to next SFCB 

; Point to next SFCB 

j Loop of more to initialize 



Initialize word that contains number of free public spool file blocks 

5*: MOV NSPLBL> R2 ; Get total number of spool file blocks 

SUB #<SPLND*<SNBUX + 10. », R2 ; Subtract number of private blocks 
MOV R2, NFRESB ; Set number of free public blocks 
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58 i 

59 > Finished 

60 i 

61 000176 012604 9*: MOV <SP)+, R4 

62 000200 012603 MOV <SP)+,R3 

63 000202 012602 MOV (SP>+, R2 

64 000204 000207 RETURN 
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SBTTL CHKSD 



Check for spooled on .ENTER 



c 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 






15 






16 






17 






18 






19 






20 






21 000206 


010046 




22 000210 


010146 




23 000212 


010346 




24 000214 


016701 


OOOOOOG 


25 000220 


00476/ 


004546 


26 000224 


012700 


OOOOOOG 


27 000230 


020027 


OOOOOOG 


28 000234 


103172 




29 000236 


026027 


OOOOOOG OOOOOOG 


30 000244 


001403 




31 000246 


020160 


OOOOOOG 


32 000252 


001403 




33 000254 


062700 


OOOOOOG 


34 000260 


000763 




35 






36 






37 






38 






39 000262 


016746 


000002G 


40 000266 


016746 


000004G 


41 000272 


010046 




42 000274 






43 000302 


012600 




44 000304 


000410 




45 






46 






47 000306 


010046 




48 000310 


012700 


OOOOOOG 


49 000314 


004767 


OOOOOOG 


50 000320 


004767 


OOOOOOG 


51 000324 


012600 




52 






53 






54 000326 






55 000334 


016701 


OOOOOOG 


56 000340 


001762 




57 000342 


016167 


OOOOOOG OOOOOOG 



CHKSD IS CALLED FOR EACH . ENTER TO SEE IF THE DEVICE 
TO BE OPENED IS A SPOOLED DEVICE. IF THE . ENTER IS FOR 
A SPOOLED DEVICE, A SPOOL FILE CONTROL BLOCK (SFCB) IS 
SET UP AND LINKED INTO THE WAITING QUEUE FOR THE REQUESTED 
DEVICE. SEE TSDEFS FOR THE FORMAT OF A SFCB AND SDCB. 
WHEN CALLED THE ARGUMENT LIST FOR THE . ENTER MUST BE IN 
EMTBLK. 
ALL REGISTERS ARE PRESERVED. 



Inputs: 
FILSPC 
CHNADR 
CHNNUM 



File specification 
Address of channel block. 
Current channel number 



Outputs: 
C-flag cleared ==> This 
C-flag set ==> This 

CHKSD: MOV RO, -(SP) 

MOV R1,-<SP> 

MOV R3, -(SP) 

MOV FILSPC, Rl 

CALL CVTDVU 

MOV #SDCB, RO 

2*: CMP RO, #SDCBND 

BHIS 5* 

CMP SDNAME(RO) 

BEQ 13* 

CMP R1,SDDVU(R0> 

BEQ 3* 

13*: ADD #SDCBSZ, RO 

BR 2* 



is a spooled device. 

is not a spooled device. 



GET DEVICE NAME 
Convert to dev index 
POINT TO FIRST SDCB 
CHECKED ALL SDCB'S? 
BRANCH IF YES 
#DMYDEVs Is this an entry for 
Br if yes 
DO NAMES MATCH? 
BRANCH IF YES 
GO CHECK NEXT SDCB 



# and unit # 



dummy device? 



3*: 



4*: 



1*: 



Channel is being opened to a spooled device. 

Save spool file name on stack then free USR module. 



SAVE 1ST 3 CHARS OF FILE NAME 
SAVE LAST 3 CHARS OF FILE NAME 
PROTECT SDCB ADDRESS 
RELEASE OUR LOCK ON USR MODULE 
RECOVER SDCB ADDRESS 



SAVE SDCB ADDRESS 
QUEUE FOR CONTROL BLOCK 
ENQ AND SUSPEND EXECUTION 
SEE IF WE WERE ABORTED WHILE ASLEEP 
RECOVER SDCB ADDRESS 
SET UP SFCB. 

** DISABLE ## 
HEAD OF FREE SFCB CHAIN 
BRANCH IF NONE FREE 
, SFCBFH; REMOVE SFCB FROM LIST 



MOV 


FILSPC+2, -(SP) 


MOV 


FILSPC+4, -(SP) 


MOV 


RO, -<SP) 


OCALL 


FREUSR 


MOV 


<SP>+, RO 


BR 


1* 


THERE ARE NO 


FREE SFCB'S. 


SUSPEND USER 


UNTIL ONE IS R 


MOV 


RO, -(SP) 


MOV 


#S*SPCB, RO 


CALL 


QNSPND 


CALL 


CHKABT 


MOV 


(SP)+, RO 


FOUND SPOOLED DEVICE — SET 



FIND FREE SFCB. 
DISABL 

MOV SFCBFH, Rl 
BEQ 4* 
MOV SFQLNK(Rl) 



1 
i 



TSSPOL 


T/S SPOOLING ROUTINES 


MACRO V 


CHKSD - 


-- Check 


for spooled on . 


ENTER 


58 


000350 








59 










60 


000356 


116761 


0000000 


OOOOOOG 


61 


000364 


105061 


0000000 




62 










63 


000370 


026727 


0000000 


023417 


64 


000376 


103402 






65 


000400 


005067 


0000000 




66 


000404 


005267 


OOOOOOG 




67 


000410 


016761 


0000000 


OOOOOOG 


68 










69 


000416 


012661 


0000020 




70 


000422 


012661 


0000000 




71 


000426 


001010 






72 


000430 


116703 


OOOOOOG 




73 


000434 


016361 


OOOOOOG 


OOOOOOG 


74 


000442 


016361 


OOOOOOG 


000002G 


75 










76 










77 


000450 


016761 


OOOOOOG 


OOOOOOG 


78 


000456 


016761 


000002G 


000002G 


79 


000464 


016761 


0000O4G 


000004G 


80 










81 


000472 


032760 


OOOOOOG 


OOOOOOG 


82 


000500 


001403 






83 


000502 


152761 


OOOOOOG 


OOOOOOG 


84 


000510 


116761 


OOOOOOG 


OOOOOOG 


85 


000516 


010061 


OOOOOOG 




86 


000522 


005061 


OOOOOOG 




87 










88 


000526 








89 


000534 


062700 


OOOOOOG 




90 


000540 


005710 






91 


000542 


001404 






92 


000544 


011000 






93 


000546 


062700 


OOOOOOG 




94 


000552 


000772 






95 


000554 


010110 






96 


000556 


005061 


OOOOOOG 




97 


000562 








98 










99 


000570 


004767 


003510 




100 


000574 


010061 


OOOOOOG 




101 


000600 


010061 


OOOOOOG 




102 










103 










104 










105 


000604 


016703 


OOOOOOG 




106 


000610 


052763 


OOOOOOG 


OOOOOOG 


107 


000616 


000241 






108 


000620 


000401 






109 










110 










111 










112 


000622 


000261 






113 










114 
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ENABL i ** ENABLE #* 

GOT FREE SFCB <R1) — SET IT UP 

MOVB CORUSR, SFUSER < R 1 ) ; SET USER # IN SFCB 
CLRB SFFLAG(Rl) J CLEAR CONTROL FLAGS 

Assign unique ID number to spool file 



11*: 



Save 



9$: 



SET 
<USE 



CMP 
BLO 
CLR 
INC 
MOV 
file 
MOV 
MOV 
BNE 
MOVB 
MOV 
MOV 
DEFAULT 



ID number about to overflow? 



Is spool file 

Br if not 

Reset spool ID number 

Increment spool file ID number 

Set ID number for this file 



SPOLID, #9999. 
11* 

SPOLID 
SPOLID 

SPOLID, SFID<R1) 
name in SFCB 

<SP)+, SFFILE+2<R1);SET LAST 3 CHARS OF FILE NAME 
<3P>+, SFFILE<R1)> SET 1ST 3 CHARS OF FILE NAME 
10* J BR IF FILE NAME WAS SPECIFIED 

CORUSR, R3 ; GET JOB INDEX NUMBER 

LPRGKR3), SFFILE<Rl>i IF NO FILE NAME SPECIFIED, USE 
LPRG2<R3), SFFILE+2<Rl)i PROGRAM NAME 
FORM NAME IN SFCB 



10*: 



LAST FORM NAME SPECIFIED BY "FORM" COMMAND) 
MOV UFORM, SFFORM ( R 1 > 
MOV UFORM+2, SFFORM+2 ( R 1 ) 
MOV UFORM+4, SFFORM+4 < R 1 ) 



SEE 



8*: 



ADD 



IF OUTPUT 

BIT 

BEQ 

BISB 

MOVB 

MOV 

CLR 
SFCB TO 

DISABL 

ADD 



SHOULD BE HELD UNTIL CHANNEL IS CLOSED. 
#SD*HLD, SDFLAG<RO)i IS DEVICE IN HOLD MODE? 
8* > BR IF NOT 

#SF*HLD, SFFLAG<R1);SET HOLD FLAG IN FILE 
CHNNUM, SFCHAN < R 1 ) ; SAVE CHANNEL # 
RO, SFSDCB(Rl) i ADDRESS OF SDCB 



SFNMBL<R1) 
TAIL OF LIST 



7*: 



6*: 



#SDFHD, RO 

<R0) 

6* 

<RO),RO 

#SFQLNK, RO 

7* 

Rl, (RO) 

SFQLNK(Rl) 



TST 
BEQ 
MOV 
ADD 
BR 
MOV 
CLR 
ENABL 
ALLOCATE FIRST DISK BLOCK FOR 
CALL GTSBLK 
MOV RO, SFSTRT(Rl) 
MOV RO, SFFLNK(Rl) 



i# OF BLOCKS IN FILE 
OF FILES WAITING FOR DEVICE 
i ## DISABLE *# 
i POINT TO LIST HEAD IN SDCB 
; AT END OF LIST? 
; BRANCH IF YES 
i CHAIN TO NEXT SFCB 
; POINT TO ITS FLINK 



END OF CHAIN 
LIST FLINK 



ADD US TO 

CLEAR OUR 

** ENABLE 

FILE 

GET A DISK BLOCK 

SET AS START ADDR 

SET AS NEXT BLOCK 



OF FILE 
ADDR 



Set up channel so it will do I/O to spool file. 



MOV CHNADR,R3 ; GET ADDRESS OF CHANNEL BLOCK 

BIS #CS*SPL, C. CSW(R3)iSET FLAG SAYING THIS IS A SPOOLED CHANNEL 

CLC ; Signal success on return 

BR 12* 



This is not a spooled device 
5*: SEC 
i Finished 



; Signal failure on return 



t 

c 
f 

i 

i 



t 

i 

« 
I 

i 

i 
4 
i 
( 

i 

< 



TSSPOL T/S SPOOLING ROUTINES MACRO V05. 05 Wednesday 18-Jan-89 12:14 Page 3-* 
CHKSD — Check for spooled on .ENTER 



115 

116 000624 

117 000626 

118 000630 

119 000632 



012603 
012601 
012600 
000207 



12*: 



MOV 
MOV 
MOV 
RETURN 



(SP)+, R3 
<SP)+»R1 
<SP>+, RO 
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SBTTL SDMOVE — Write user's data to spool file 



SDMOVE is called during .write emt processing to move the user's data 
from his buffer to the spool buffer and then write it to the spool file. 



Inputs: 
CHNNUM = User's channel number. 
EMTBLK = EMT argument block. 



000634 010146 

000636 010246 

000640 010346 

000642 010446 

000644 010546 



000646 004767 004050 
000652 103534 



000654 004767 000352 



000660 016703 0000040 

000664 016705 000006G 

000670 010567 0000000 

000674 001523 

000676 006305 

000700 060305 



SDMOVE: 


MOV 


Rl, -<SP) 




MOV 


R2, -<SP) 




MOV 


R3, -<SP> 




MOV 


R4# -<SP) 




MOV 


R5, -<SP> 


> Find 


SDCB 


assoc iated 



CALL 
BCS 



FNDSD 
SDMVX 



;FIND SDCB FOR THIS CHANNEL 
; BR IF COULDN'T FIND IT 



MOV 


EMTBLK+4, R3 


MOV 


EMTBLK+6, R5 


MOV 


R5, URO 


BEQ 


SDMVX 


ASL 


R5 


ADD 


R3, R5 



000702 132761 
000710 001073 



0000000 OOOOOOG 



000712 005767 000002G 

000716 001403 

000720 152761 OOOOOOG OOOOOOG 



Make sure spool file buffer is assigned to our channel 

8*: CALL SGETBF > GET SPOOL FILE BUFFER FOR US 

Set up info about data to be moved 

GET USER'S BUFFER ADDRESS 

GET # WORDS TO MOVE 

RETURN WORD COUNT TO USER IN RO 

BR IF NOTHING TO WRITE 

CONVERT TO BYTE COUNT 

GET ADDRESS PAST END OF USER'S BUFFER 

See if this is the first write to the spooled device. 

BITB #SF*1ST, SFFLAG<R1)j IS THIS 1ST WRITE? 
BNE SDMV1 ;BR IF NOT 1ST WRITE 

This is first write to this spooled device. 
See if 1st write is to block # or non-zero. 

TST EMTBLK+2 ;Is 1st block # 0? 

BEQ 2* ; Br if yes 

BISB #SF*BN1, SFFLAG(Rl); Remember 1st block is not 



See if user specified a form name. 



000726 152761 OOOOOOG OOOOOOG 2*: BISB 

000734 004767 OOOOOOG CALL 

000740 005303 DEC 

000742 120027 000135 CMPB 

000746 001037 BNE 



#SF*1ST,SFFLAG<R1); REMEMBER 1ST WRITE HAS BEEN DONE 



GETUCH 
R3 

RO, #RSQBR 
16* 



GET CHAR FROM USER'S BUFFER 
POINT BACK TO CHAR JUST GOTTEN 
DID USER SPECIFY A FORM NAME? 
BR IF NOT 



User specified a form name with this file. 
Move the name to buffer in SFCB. 



i 
4 
C 

i 

i 



t 

i 
t 
I 

i 

i 
i 

< 
i 
( 
4 
% 
i 



000750 010102 



MOV 



R1,R2 



; GET ADDRESS OF SFCB 



« 
f 

< 
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60 
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67 
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69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
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000752 
000756 
000760 
000764 
000770 
000774 
000776 
001002 
001004 
001010 
001012 
001016 
001020 
001022 
001026 
001032 
001034 
001036 
001040 
001044 
001046 
001054 
001056 
001062 
001070 
001072 



001100 
001104 
001110 
001112 
001116 
001122 
001126 
001132 
001134 
001136 



001144 
001146 
001150 
001152 
001154 
001156 



062702 
005203 
012704 
004767 
120027 
001412 
120027 
103405 
120027 
101002 
162700 
110022 
077417 
004767 
120027 
001373 
005704 
001420 
112722 
077403 
132761 
001011 
016100 
032760 
001403 



016702 
020227 
103406 
010267 
004767 
016702 
004767 
110022 
020305 
103762 



OOOOOOG 

000006 

0000000 

000015 

000141 

000172 

000040 



OOOOOOG 
000012 



000040 

OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 



13*: 



1*: 
14*: 



15*: 
16*: 



ADD #SFFQRM, R2 

INC R3 

MOV #6, R4 

CALL GETUCH 

CMPB RO, #CR 

BEQ 14* 

CMPB RO, #141 

BLO 1* 

CMPB RO, #172 

BHI 1* 

SUB #40, RO 

MOVB RO, <R2)+ 

SOB R4, 13* 

CALL GETUCH 

CMPB RO, #LF 

BNE 14* 

TST R4 

BEQ SDMV1 

MOVB #' , (R2) + 

SOB R4, 15* 

B I TB #SF*BN 1 , SFFL.AG 

BNE SDMV1 

MOV SFSDCB<R1),R0 

BIT #SD*FLG, SDFLAG 

BEQ SDMV1 

OCALL FLGPAG 



POINT TO FORM NAME BUFFER IN SFCB 

SKIP OVER RIGHT-SQUARE-BRACKET CHAR 

FORM NAMES MAY BE UP TO 6 CHARS LONG 

GET CHAR FROM USER'S BUFFER 

CARRIAGE-RETURN? 

BR IF HIT END OF NAME 

Is this a lower case character? 

Br if not 



Convert lower case char to upper case 
MOVE NAME TO SFCB BUFFER 
MOVE UP TO 6 CHARS 
NOW SKIP UP LINE-FEED 



DID WE GET ALL 6 CHARACTERS? 

BR IF YES 

PAD WITH BLANKS 



<Rl);Is 1st block is not 0? 

i NO FL AGP AGE IF NOT 

i GET SDCB FOR FILE 
(RO) ;FLAG PAGE FOR DEVICE? 

; BR IF NOT 

i ELSE DO FLAG PAGE 



OOOOOOG 
OOOOOOG 

OOOOOOG 
000036 
OOOOOOG 
OOOOOOG 



001140 010267 OOOOOOG 



Move data from user's buffer to spool buffer in job context area. 

GET CURRENT POINTER INTO SPOOL BUFFER 

HAVE WE REACHED END OF SPOOL BUFFER? 

BR IF NOT 

SAVE BUFFER POINTER 

WRITE BUFFER TO SPOOL FILE 

GET POINTER INTO SPOOL BUFFER 

GET CHARACTER FROM USER'S BUFFER 

MOVE CHAR TO SPOOL BUFFER 

HAVE WE MOVED ALL OF USER'S DATA? 

BR IF NOT 



SAVE SPOOL BUFFER POINTER 



SDMV1: 


MOV 


SXBPNT, R2 


2*: 




CMP 


R2, #SPUBND 






BLO 


1* 






MOV 


R2, SXBPNT 






CALL 


SBUFOT 






MOV 


SXBPNT, R2 


1*: 




CALL 


GETUCH 






MOVB 


RO, (R2) + 






CMP 


R3, R5 






BLO 


2* 


» 


Finished mov 


ing user ' s 



012605 
012604 
012603 
012602 
012601 
000207 



> Finished 




i 

SDMVX : MOV 


(SP)+, R5 


MOV 


<SP>+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





f 



i 
i 



t 
f 
I 

i 
i 
I 

C 

f 

( 



t 

( 
i 



I 

t 

I 

' c 

• ( 
< 
i 

i 
i 
I 
l 
i 

f 

< 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 



001160 
001162 
001164 
001170 

001172 
001176 
001202 
001206 

001210 
001214 



001224 
001226 
001230 



010046 
010146 
016701 
001415 

016700 
162700 
162700 
001406 

004767 
010067 



012601 
012600 
000207 



0000000 



OOOOOOG 
OOOOOOG 
000004 



003070 
OOOOOOG 



001220 004767 000042 



SBTTL SBUFOT 



Write current buffer to file 



SBUFOT IS CALLED TO WRITE THE CURRENT SPOOL BUFFER TO 
THE SPOOL FILE AND THEN RESET THE BUFFER POINTERS AND 
ALLOCATE A NEW DISK BLOCK FOR THE NEXT BUFFER. 
WHEN CALLED, SXSFCB MUST POINT TO THE SFCB FOR THE 
CURRENT FILE. ALL REGISTERS ARE PRESERVED. 
Inputs: 

CHNNUM = Current channel number. 

SPUBUF = Spool buffer. 

SXliPNT = Pointer to free space in spool buffer. 



Outputs: 
SXBPNT = Reset to point to 



SBUFOT: MOV 




RO, -<SP> 


MOV 




R 1 , - ( SP ) 


MOV 




SXSFCB, Rl 


BEG 




9* 


- CHECK NUMBER 


OF DATA WORDS I 


MOV 




SXBPNT, RO 


SUB 




#SPUBUF, RO 


SUB 




#4, RO 


BEG 




9* 


; GET A NEW 


DI 


3K 3L0CK AND SET 


CALL 




GTSBLK 


MOV 




RO, SPUBUF 


; WRITE OUT 


THE BUFFER. 


CALL 




SFLUSH 



first free byte in buffer. 



i POINT TO SFCB 

; BRANCH IF NO FILE USING BUFFER 
N BUFFER 
i GET CURRENT POINTER 
; SUBTRACT BUFFER BASE 
; REMOVE CONTROL WORDS 
i BRANCH IF BUFFER IS EMPTY 
AS FILE FLINK IN THIS BUFFER 
j GET A DISK BLOCK 
; SET AS FLINK IN BUFFER 

;D0 THE WRITE 



9*: 



MOV <SP)+, Rl 
MOV (SP)+, RO 
RETURN 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



SBTTL SGETBF — Reserve buffer for file 



SGETBF IS CALLED TO MAKE SURE THAT THE SPOOL BUFFER IS 

IN USE BY THE SPOOL FILE WHOSE SFCB IS POINTED TO BY Rl. 

IF THE BUFFER IS BEING USED BY ANOTHER FILE, THE BUFFER 

IS WRITTEN OUT WITH ITS CURRENT CONTENTS AND 

THE BUFFER IS CLAIMED FOR THE NEW FILE BY STORING 

THE SFCB ADDRESS IN SXSFCB. 

ALL REGISTERS ARE PRESERVED. 



001232 
001236 
001240 
001244 



020167 
001412 
005767 
001402 



OOOOOOG 
OOOOOOG 



SGETBF: 



CMP 

BEG 
TST 
BEG 



001246 004767 177706 



Rl, SXSFCB 
9* 

SXSFCB 

Qtt 

BUFFER IS IN USE BY ANOTHER FILE 
WRITE OUT INFO IN BUFFER. 
SBUFOT 



i HAVE WE GOT CONTROL OF BUFFER? 
i BRANCH IF YES 

; IS BUFFER IN USE BY ANYONE? 
; BRANCH IF NOT 



CALL 



001252 
001256 
001264 



010167 
012767 
000207 



OOOOOOG 
000004G 



OOOOOOG 



; DUMP CURRENT BUFFER FULL 
NOW CLAIM BUFFER FOR OUR FILE 

MOV Rl, SXSFCB > SAY WE'VE GOT BUFFER 
MOV #SPUBUF+4, SXBPNT; INITIALIZE SPOOL BUFFER POINTER 
9*: RETURN 



8* 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 001266 

12 001270 

13 001272 

14 001274 

15 001276 

16 001302 

17 001306 
IS 

19 001310 

20 001314 

21 001320 

22 001322 

23 001324 

24 001326 

25 001332 

26 001334 
27 

28 001340 

29 001376 

30 001400 

31 001406 
32 

33 001412 

34 001416 

35 001422 

36 001430 

37 001432 

38 001436 

39 001440 
40 

41 001444 

42 001450 

43 001454 

44 001456 

45 001460 

46 001462 

47 001464 



010046 
010146 
010246 
010346 
012702 
016701 
001456 

016700 
032700 
001401 
105020 
160200 
162700 
006200 
010062 



103003 



005261 
016100 
132761 
001403 
004767 
000402 
004767 

062702 
010267 
012603 
012602 
012601 
012600 
000207 



0000000 
0000000 



0000000 
000001 



000004 
000002 



011261 OOOOOOG 



. SBTTL SFLUSH — Write current buffer to file 

SFLUSH IS CALLED TO WRITE THE CURRENT SPOOL BUFFER TO 

THE SPOOL FILE. SFLUSH SETS THE CORRECT WORD COUNT 

IN THE BUFFER CONTROL WORD AND WRITES THE BUFFER TO 

THE DISK BLOCK WHOSE ADDRESS IS IN SFFLNK. 

IT THEN SETS SFFLNK TO THE VALUE WHICH IS IN THE 

FLINK FIELD OF THE BUFFER. THE BUFFER POINTERS 

ARE RESET. ALL REGESTERS ARE PRESERVED. 



SFLUSH: MOV RO, -(SP) 

MOV R 1 , - ( SP ) 

MOV R2»-<SP> 

MOV R3, -<SP) 

MOV #SPUBUF, R2 

MOV SXSFCB.R1 

BEQ 8* 



POINT TO BUFFER 

POINT TO CURRENT SFCB 

BRANCH IF NO FILE USING BUFFER 



SET WORD COUNT IN BUFFER 



MOV SXBPNT, RO » GET CURRENT POINTER INTO BUFFER 

BIT #1,R0 : IS ADDRESS ODD? 

BEQ 1* i BRANCH IF NOT 

CLRB <R0)+ iPUT NULL AS ODD CHAR 

1*: SUB R2, RO ; SUBTRACT BUFFER BASE 

SUB #4, RO ; DON'T COUNT CONTROL WORDS 

ASR RO > CONVERT COUNT TO WORDS 

MOV RO, 2<R2) ; STORE WORD COUNT INTO BUFFER 
; WRITE OUT THE BUFFER. 

2*: .WRITW #SPLARG, #USPLCH, R2, #256. , SFFLNK <R1) ; WRITE BLOCK TO SPOOL FILE 



3*: 



BCC 3* 

.PRINT #SPLERR 

MOV <R2),SFFLNK<R1) 



BR IF NO WRITE ERROR OCCURED 
SIGNIFY ERROR ON SPOOL WRITE 
SET NEW FILE FLINK 



TELL SPOOLER THAT ANOTHER BLOCK IS AVAILABLE. 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

000712 

000100 

000004 
OOOOOOG 



7*: 



INC 

MOV 

BITB 

BEQ 

CALL 

BR 

CALL 



SFNMBL(Rl) ;SAY ANOTHER BLOCK IS IN FILE 
SFSDCB<R1>, RO ; POINT TO SDCB 
#SF*BSY, SFFLAG<R1); IS FILE ACTIVE NOW? 



7* 

SPOLRD 
8$ 
SPOLGO 



RESET BUFFER POINTERS 



8*: 



ADD 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



#4, R2 
R2, SXBPNT 
<SP>+, R3 
<SP>+, R2 
<SP)+,R1 
<SP>+, RO 



BRANCH IF NOT 

TELL SPOOLER IT CAN READ BLOCK 

TRY TO START SPOOLER 

POINT PAST CONTROL WORDS 



( 

i 
i 

t 

i 

f 
I 
I 

i 

< 

€ 

f 
i 



i 
( 
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2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



, SBTTL SPLSHF — Set or reset hold flag for file 

SPLSHF is called to set or reset the hold flag for a spool file. 

Inputs: 
CHNNUM = User's channel number 
R2 - 0==>nohold; l=Ohold file. 



001466 010146 

001470 012767 OOOOOOG OOOOOOG 



001476 004767 003220 
001502 103416 



001504 116167 OOOOOOG OOOOOOG 

001512 042767 OOOOOOC OOOOOOG 

001520 152761 OOOOOOG OOOOOOG 

001526 005702 

001530 001003 

001532 142761 OOOOOOG OOOOOOG 



001540 012601 
001542 000207 



SPLSHF: MOV 



R 1 , - < SP ) 
#SD*RSV» URO 



MOV #SD*RSV» URO > Assume the device is not spooled 
Find SFCF associated with this channel 



CALL 
BCS 



FNDSD 
9* 



; Locate SFCF associated with this channel 
; Br if cannot find the SFCF 



Set or reset the flag in the SFCB 



MOVB 

BIC 

BISB 

TST 

BNE 

BICB 

Finished 



9*: 



MOV 
RETURN 



SFFLAG(R1 )» URO ; Get current setting of hold mode 

# A CSF*HLD, URO ; And return to user 

#SF*HLD> SFFLAG<R1 ); Assume me want to set the flag 

R2 > Do we want to reset the flag? 

9* ; Br if not 

#SF*HLD, SFFLAG<R1); Clear the hold flag 



<SP>+, Rl 



i 
I 
i 



I f 

t 

I 

t 

\ i 

i 

I 

( 
1 

I 

I 

i 
I 

( 

t 

t 

( 
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i 
2 
3 
4 
5 
6 

7 001544 

8 001552 

9 001556 

10 001560 

11 001564 
12 

13 
14 
15 

16 001566 

17 001572 

18 001574 

19 001600 

20 001604 

21 001606 

22 001614 

23 001616 

24 001622 
25 

26 
27 

28 001624 

29 001632 

30 001634 
31 

32 
33 
34 

35 001640 

36 001644 

37 001652 

38 001654 

39 001660 

40 001662 

41 001670 

42 001672 

43 001676 

44 001704 

45 001706 

46 001714 

47 001716 

48 001724 

49 001726 

50 001734 

51 001736 

52 001742 
53 

54 
55 
56 
57 001744 



005760 
001402 
000167 
010146 



016001 
001002 
000167 
005761 
001404 
026127 
001576 
016101 
001366 



032760 
001402 

000167 



016001 
132761 
001031 
005761 
001426 
132761 
001002 
000167 
132761 
001142 
026160 
001010 
026160 
001004 
026160 
001424 
016101 
001340 



. SBTTL SPOLGO — Try to start spooled device 

SPOLGO IS CALLED TO TRY TO START UP THE SPOOLED DEVICE 
WHOSE SDCB IS POINTED TO BY RO, 
ALL REGISTERS ARE PRESERVED. 



OOOOOOG 
000554 



SPOLGO: DISABL 

TST SDSFCB(RO) 

BEQ 7* 

JMP SGX2 

7$: MOV R1,-(SP> 



** DISABLE ## 

IS DEVICE BUSY NOW? 

BR IF NOT 



i 
i 

i 
i 



LOOK FOR WAITING FORM ALIGNMENT PRINT FILE. 
(ALIGNMENT FILES USE THE FORM NAME "** ") 



OOOOOOG 

000536 
OOOOOOG 

OOOOOOG 025052 

OOOOOOG 



1*: 



5*: 



MOV 


SDFHD(RO), Rl 


BNE 


1* 


JMP 


SGX1 


TST 


SFNMBL(Rl) 


BEG 


5* 


CMP 


SFFORM(Rl), #"** 


BEG 


SGOTFL 


MOV 


SFQLNK(R1>,R1 


BNE 


1* 



POINT TO 1ST WAITING SFCB 

BR IF THERE ARE WAITING FILES 

ANY DATA IN FILE YET? 

BR IF NOT 

ALIGNMENT FILE? 

BR IF FOUND ALIGNMENT FILE 

LINK FORWARD TO NEXT SFCB 

BR IF MORE TO CHECK 



OOOOOOG OOOOOOG 
000476 



SEE IF WE ARE WAITING FOR A FORM MOUNT. 

BIT #SD*WFM, SDFLAG(RO); WAITING FOR A FORM MOUNT? 

BEQ 9* ;BR IF NOT 

JMP SGX1 ;EXIT IF WAITING FOR FORM MOUNT 

SEE IF WE CAN FIND A FILE WHICH NEEDS THE FORM WHICH 
IS CURRENTLY MOUNTED. 



OOOOOOG 
OOOOOOG 



OOOOOOG 



9*: 
3*: 



OOOOOOG 
OOOOOOG OOOOOOG 



000314 
OOOOOOG 

OOOOOOG 

000002G 

000004G 

OOOOOOG 



OOOOOOG 
OOOOOOG 
000002G 
000004G 



8*: 



2*: 



MOV 

BITB 

BNE 

TST 

BEG 

BITB 

BNE 

JMP 

BITB 

BNE 

CMP 

BNE 

CMP 

BNE 

CMP 

BEG 

MOV 

BNE 



SDFHD(R0),R1 i POINT TO 1ST WAITING SFCB 
#SF*HLD»SFFLAG<Rl)i IS THIS FILE BEING HELD? 



2* 

SFNMBL ( R 1 ) 

2* 



i BR IF YES 

i ANY DATA IN FILE YET? 

; BR IF NOT 

#SF*1ST, SFFLAG(Rl); WAS 1ST WRITE EVER DONE TO FILE 
8* : BR IF YES 

SGOTFL > IF NOT THEN IGNORE FORM NAME (EMPTY FILE) 

#SF*DEL, SFFLAG(Rl) ; Is this file to be deleted? 
SGOTFL > Br if yes — Delete the file now 

SFF0RM(R1),SDF0RM(R0);SEE IF SAME FORM NAME 
2$ 

SFFORM+2 ( R 1 ) , SDFORM+2 ( RO ) 
2* 
SFFORM+4 ( R 1 ) , SDFORM+4 ( RO ) 



SGFSF 

SFQLNK(R1),R1 

3* 



BR IF FOUND ELIGIBLE FILE 
LINK TO NEXT SFCB 
BR IF MORE TO CHECK 



CAN'T FIND FILE NEEDING CURRENTLY MOUNTED FORM. 
SEE IF WE ARE ALLOWED TO REQUEST NEW FORM. 



032760 OOOOOOG OOOOOOG 



BIT 



#SD*FLK, SDFLAG(RO)i IS CURRENT FORM LOCKED ON PRINTER? 



( 

i 



i 

f 
i 
i 

i 

c 

i 
i 
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89 

90 
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105 
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107 

108 

109 

110 

111 

112 

113 

114 
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001752 001171 



001754 
001760 
001764 
001766 
001774 
001776 
002002 
002004 



002006 
002014 
002016 
002024 



002026 
002034 
002036 
002040 
002042 
002044 
002050 
002052 
002060 
002062 
002066 
002070 
002072 
002076 
002102 
002106 
002110 
002112 
002114 
002120 
002124 
002126 
002130 
002132 
002134 
002140 
002144 
002146 
002150 
002152 
002156 
002164 



016001 
005761 
001404 
132761 
001414 
016101 
001366 
000554 



032760 
001476 
032760 
001072 



010246 
010446 
010546 
010046 
1 1 6702 
001445 
032762 
001441 
004767 
103436 
010402 
062702 
012705 
012700 
012522 
077002 
010402 
062702 
062701 
012122 
012122 
012122 
011600 
062700 
062702 
112022 
112022 
112022 
116701 

012600 



BNE 



SGX1 



; BR IF FORM LOCKED 



WE CAN REQUEST FORM CHANGE. 

LOOK FOR 1ST FILE WAITING TO BE PRINTED. 



OOOOOOG 
OOOOOOG 



4*: 



OOOOOOG OOOOOOG 
OOOOOOG 6*: 



POINT TO 1ST SFCB 

ANY DATA IN FILE YET? 

BR IF NOT 

); IS FILE BEING HELD? 

BR IF GOT ELIGIBLE FILE 

LINK FORWARD TO NEXT SFCB 

BR IF MORE TO CHECK 

COULD FIND NO FILE TO PRINT 



FOUND FILE FOR CURRENTLY MOUNTED FORM. 

SEE IF IN SINGLE FILE MODE WHICH REQUIRES A MOUNT MESSAGE 

EVEN FOR THIS FILE. 



MOV 


SDFHD<R0>,R1 


TST 


SFNMBL<R1> 


BEQ 


6$ 


BITB 


#SF*HLD, SFFLA 


BEQ 


SGNFMT 


MOV 


SFQLNK<R1),R1 


BNE 


4* 


BR 


SGX1 



OOOOOOG OOOOOOG SGFSF: 
OOOOOOG OOOOOOG 



BIT #SD*SNG, SDFLAG<RO)i IN SINGLE FILE MODE? 

BEQ SGOTFL i BR IF NOT 

BIT #SD*SMS, SDFLAGCRO); ALREADY SENT MESSAGE? 

BNE SGOTFL i BR IF YES 



PUT OUT MESSAGE REQUESTING FORM MOUNT. 



SGNFMT: 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
000021 



1$: 



0000 14G 
OOOOOOG 



OOOOOOG 
000012 



OOOOOOG 



2*: 



ENABL 

MOV R2,-<SP> 

MOV R4,-(SP) 

MOV R5, -<SP> 

MOV RO, -<SP) 

MOVB CTRLTT, R2 

BEQ 2* 

BIT #*DILUP,LSW<R2> 

BEQ 2$ 

CALL GTSYMB 

BCS 2* 

MOV R4, R2 

ADD #SB*TXT, R2 

MOV #FMMSG, R5 

MOV #17. , RO 

MOV <R5>+, <R2)+ 

SOB RO, 1* 

MOV R4, R2 

ADD #SB*TXT+12. , R2 

ADD #SFFORM, Rl 

MOV <R1>+, (R2)+ 

MOV <R1)+, (R2)+ 

MOV <R1>+, <R2)+ 

MOV ( SP ) , RO 

ADD #SDANAM, RO 

ADD #10. ,R2 

MOVB <R0>+, <R2)+ 

MOVB <R0>+, (R2)+ 

MOVB <R0>+, <R2)+ 

MOVB CTRLTT, Rl 

OCALL QMSG 

MOV <SP>+, RO 



; ** ENABLE ## 



SAVE SDCB ADDRESS ON TOP OF STACK 

GET JOB # OF OPERATOR'S CONSOLE 

BR IF NO OPERATOR 

IS OPERATOR LOGGED ON NOW? 

BR IF NOT 

GET A FREE SYSTEM MESSAGE BUFFER 

BR IF NONE AVAILABLE 

GET ADDRESS OF MESSAGE BUFFER 

POINT TO TEXT STORAGE AREA 

MOVE MESSAGE TEXT TO BUFFER 

MOVE 17 WORDS 



GET ADDRESS OF MESSAGE BUFFER BLOCK 

POINT INTO MESSAGE TEXT 

MOVE FORM NAME INTO MESSAGE TEXT 



; GET SDCB ADDRESS 

; Point to ASCII device name 

; Point to position where dev name goes 

; Move device name into message 



;GET # OF OPERATOR'S CONSOLE 
j QUEUE MESSAGE FOR OPERATOR 



f 



4 

i 

i 

i 

i 
I 

i 
< 
* 
€ 

€ 

< 
t 



i 
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\ 

i 

i 
i 

, < 

i 

i 
c 
t 

i 
< 

« 

4 

t 
i 

t 



115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 



002166 
002174 
002202 
002204 
002206 
002210 



002212 
002216 
002224 
002232 
002234 
002240 
002244 
002246 
002254 
002256 
002264 
002272 
002276 
002304 
002306 
002312 
002316 

002322 
002324 
002330 
002334 
002336 
002340 
002346 



052760 
052760 
012605 
012604 
012602 
000452 



010160 
152761 

010146 
012701 
004767 
012601 
132761 
001403 
052760 
016160 
005060 
132761 
001402 
005260 
005367 
004767 

010046 
012700 
004767 
012600 
012601 

000207 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



BIS #SD*WFM, SDFLAG<RO).i WAITING FOR FORM MOUNT 

BIS #SD*SMS> SDFLAG<RO)i FORM MOUNT MESSAGE SENT 

MOV <SP)+, R5 

MOV <SP)+, R4 

MOV <SP)+, R2 

BR SGX1 



FOUND ELIGIBLE FILE 



SAY DEVICE IS BUSY WITH FILE. 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
001304 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
000026 



OOOOOOG 
OOOOOOG 



1*: 



SGOTFL: MOV 
BISB 
ENABL 
MOV 
MOV 
CALL 
MOV 
BITB 
BEG. 
BIS 
MOV 
CLR 
BITB 
BEQ 
INC 
DEC 
CALL 
RESTART USERS 
MOV 
MOV 
CALL 
MOV 
MOV 
ENABL 
RETURN 



2$: 



SGX1: 
SGX2: 



R1,SDSFCB<R0> ; ASSOCIATE FILE WITH DEVICE 
#SF*BSY, SFFLAG(Rl)i SAY FILE IS BUSY 

; #* ENABLE ** 
R 1 , - < SP > 

#DF*ENT*R1 /Get function code for .ENTER 
SDFUNC iTell device handler we are doing 

<SP)+, Rl 

#SF*DEL> SFFLAG(Rl) i Is file marked to be deleted? 
1* ; Br if not 

#SD*DEL» SDFLAG<RO) > Set delete flag for spooler 
SFSTRT(Rl),SDFLNK<RO)iSET DISK ADDR FOR 1ST READ 
SDBLK(RO) 'Say 1st block written will be # 
#SF»BN1» SFFLAG<R1 )» Should 1st block written be # 
2* i Br if not 

SDBLK(RO) iMake 1st block written be # 1 
NESB ; ONE LESS EXTRA SPOOL BUFFER 

SPOLRD ;READ IN 1ST BLOCK FROM FILE 

WAITING FOR DISK BLOCKS 
RO, -<SP) 
#S*SPDB, RO 
UREGO 
(SP>+, RO 
<SP)+,R1 



ENTER 




1? 



; POINT TO WAITING 
; RESTART 1ST USER 

; #* ENABLE ** 



Q HEAD 
IN Q 



i 
t 
i 

i 
i 
f 
I 

t 
€ 

i 
i 

i 
4 

I 
( 
t 
i 
i 
I 
i 



002350 
002352 
002354 
002360 

002362 
002370 
002374 
002376 
002404 
002406 
002414 
002416 
002422 
002424 
002430 
002432 
002436 



002440 
002444 



002446 
002452 



002454 
002462 
002466 
002472 

002474 
002500 
002504 
002512 



002520 
002526 

002530 
002532 
002534 
002540 
002544 
002550 



010146 
010246 
016001 
001534 



005760 
001123 
032760 
001117 
032760 
001006 
005761 
001510 
005760 
001505 
005760 
001403 



005727 
002477 



016702 
001010 



052760 
012701 
004767 
000467 

011267 
010260 
052760 



000000G 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



SPOLRD: 



SEE 



3*: 
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SBTTL SPOLRD — Read next block from spool file 



SPOLRD IS CALLED TO ATTEMPT TO READ THE NEXT BLOCK 
FROM THE SPOOL FILE. WHEN CALLED, RO MUST POINT TO THE 
SDCB FOR THE DEVICE ATTACHED TO THE FILE. 
ALL REGISTERS ARE PRESERVED. 



MOV R1,-<SP> 
MOV R2,-(SP) 

MOV SDSFCB(R0),R1 ; POINT TO SFCB 
BEG SRX i BRANCH IF DEVICE INACTIVE 

IF WE SHOULD START ANOTHER READ. 



SEE 



DISABL 
TST 
BNE 
BIT 
BNE 
BIT 
BNE 
TST 
BEQ 
TST 
BEQ 
TST 
BEG 
IF THERE 



SDBUF2(R0) 

SREX 

#SD*BWT, SDFLAG(RO) 

SREX i BR 



*# DISABLE #* 

INPUT BUFFER ALREADY BUSY? 

BR IF YES 

ALREADY WAITING FOR A 

IF YES 



BUFFER' 



#SD*BAK, SDFLAG<RO>; IS BACKUP WANTED? 



3* 

SFNMBL(Rl) 

SREX 

SDFLNK<RO) 

SREX 

SDBUFKRO) 

2* 

ARE ENOUGH 



IN THIS FILE? 
IS EMPTY 
DISK FLINK? 



;BR IF YES 
iANY BLOCKS 
;BR IF FILE 
> DO WE HAVE 
; BR IF NOT 

; OUTPUT BUFFER ALLOCATED? 
; IF NOT DEFINITELY START READ 
BUFFERS AVAILABLE FOR US TO 

FREE 



OOOOOOC 



OOOOOOG 



OOOOOOG 
000006 ' 
000166 



OOOOOOG 
OOOOOOG 
OOOOOOG 



DOUBLE BUFFER. ONLY DOUBLE BUFFER IF THERE ARE ENOUGH 
BUFFERS FOR EACH ACTIVE SPOOLER TO GET AT LEAST ONE. 

TST #<SPLNB+1-<2*SPLND»; ENOUGH BUFFERS TO DOUBLE BUFFER? 

BLT SREX iBR IF TOO FEW BUFFERS TO DOUBLE BUFFER 

WE WANT TO START THE NEXT READ. 
SEE IF WE CAN GET A SPOOL BUFFER. 



2* 



OOOOOOG 



MOV 

BNE 
THERE ARE NO 
QUEUE SPOLRD 

BIS 

MOV 

CALL 

BR 



HEAD OF FREE BUFFER LIST 
BRANCH IF BUFFER AVAILABLE 



SPLBHD, R2 

1$ 

FREE BUFFERS. 

TO BE RECALLED WHEN A BUFFER IS RELEASED. 

#SD*BWT, SDFLAG<RO) ; SAY WE ARE WAITING ON A BUFFER 

#SPBWHD, Rl i POINT TO WAIT LIST HEAD 

SPOOLQ i QUEUE FOR RECALL #* ENABLE ** 

SRX 

i WE FOUND A FREE BUFFER — START READ INTO IT 
1$: MOV <R2),SPLBHD J REMOVE BUFFER FROM FREE LIST 
MOV R2, SDBUF2(R0> > SET BUFFER ADDRESS 



OOOOOOG 



BIS 
ENABL 



#SD*INR 



SDFLAG<RO) 

; #* 



SAY READ IS 
ENABLE ** 



IN PROGRESS 



SEE IF OPERATOR WANTS TO BACK UP IN SPOOL FILE 



032760 
001417 

010346 
010003 
062703 
011360 
005261 
005023 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



5*: 



BIT #SD*B AK, SDFLAG < RO ) ; HAS 

BEQ 4* iBR IF 
BACK UP HAS BEEN REQUESTED. BACK UP 

MOV R3, -<SP> 

MOV RO, R3 

ADD #SDBU, R3 

MOV <R3>, SDFLNK<RO) 

INC SFNMBL<R1) 

CLR <R3)+ 



BACKUP BEEN REQUESTED? 

NOT 

TO OLDEST REMEMBERED BLOCK. 



POINT TO CELLS WITH SAVED 

BACK-UP DISK ADDRESSES 

SET OLDEST AS NEW FLINK 

WE JUST ADDED 1 BLOCK TO FILE 

CLEAR SAVE AREA 






< 
t 
( 
( 

t 

c 

€ 
< 

< 
f 

i 

i 
i 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 



002552 005713 

002554 001373 

002556 042760 OOOOOOG OOOOOOG 

002564 012603 



002566 010046 



002570 012701 OOOOOOG 
002574 004767 OOOOOOG 



TST <R3) iMORE TO ADD? 

BNE 5* ;ADD ALL WE REMEMBER 

BIC #SD*BAK,SDFLAG<RO>; SAY BACKUP HAS BEEN DONE 

MOV <SP>+, R3 

START THE DISK READ 

4*: MOV RO, -<SP> ; SAVE ADDRESS OF SDCB 

Get a system I/O queue element 



MOV #SPLCHN, Rl 
CALL GETSYQ 



j POINT TO SPOOL FILE CHANNEL BLOCK 
; GET SYSTEM I/O QUEUE ELEMENT 



OOOOOOG 
OOOOOOG OOOOOOG 



002600 011600 

002602 010061 

002606 066061 

002614 010200 

002616 004767 OOOOOOG 

002622 012761 OOOOOOG OOOOOOG 

002630 012761 002734' OOOOOOG 

002636 012600 



002640 004767 OOOOOOG 



002644 

002652 012602 

002654 012601 

002656 000207 



Set up I/O queue element for read 

MOV <SP),RO .GET ADDRESS OF SDCB 

MOV RO, Q. CHAN(Rl) ; SDCB ADDRESS WILL BE IN Rl FOR COMPLETION ROUTINE 

ADD SDFLNK(RO),Q. BLKN<R1>;SET DISK BLOCK # 

MOV R2, RO iGET BUFFER ADDRESS 

CALL SYBFAD i SET BUFFER ADDRESS IN I/O QUEUE ELEMENT 

MOV #SBUFWD, Q. WCNT<R1>; SET WORD COUNT FOR TRANSFER 

MOV #SFRCMP,Q. COMP<Rl)i SET ADDRESS OF COMPLETION ROUTINE 

MOV <SP>+, RO 

Start the I/O 

CALL SYQIO i QUEUE THE I/O REQUEST 



#** ENABLE *** 



> Finished 




SREX: ENABL 




SRX: MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





i 
i 



i 

< 

i 

i 
l 
f 

i 
c 



i 
i 



TSSPOL 


T/S SPO 


OLING ROl 


JUNES 


SPOOLQ - 


— Put s 


pooler in wait q 


i 
2 








3 








4 








5 








6 








7 








8 








9 


002660 


010246 




10 


002662 






11 


002670 


011102 




12 


002672 


001410 




13 








14 


002674 


016201 


OOOOOOG 


15 


002700 


001402 




16 


002702 


010102 




17 


002704 


000773 




18 


002706 


010062 


OOOOOOG 


19 


002712 


000401 




20 








21 


002714 


010011 




22 


002716 


005060 


OOOOOOG 


23 


002722 






24 


002730 


012602 




25 


002732 


000207 
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. SBTTL SPOOLQ — Put spooler in wait queue 



SPOOLQ IS CALLED TO ADD A SPOOLED DEVICE CONTROL BLOCK 
TO THE END OF SOME QUEUE WHOSE LIST HEAD IS POINTED 
TO BY Rl. WHEN CALLED RO MUST CONTAIN THE ADDRESS 
OF THE SDCB. 
Rl IS DESTROYED — ALL OTHER REGISTERS ARE PRESERVED. 



** DISABLE ** 

GET CONTENTS OF LIST HEAD 

BRANCH IF LIST IS EMPTY 

,IL 

LOOK FOR END OF LIST 

FOLLOW CHAIN 

ADD US TO END OF LIST 



SPOOLQ: 


MOV 
DISABL 


R2, -<SP) 




MOV 


(R1),R2 i 




BEG 


1* i 


i LIST 


NOT EMPTY — PUT US AT Ifi 


3*: 


MOV 


SDWLST(R2),R1 i 




BEQ 


2* 




MOV 


R1.R2 i 




BR 


3* 


2*: 


MOV 


RO, SDWLST(R2) i 




BR 


4* 


i EMPTY LIST - 


- PUT US AT HEAD. 


1*: 


MOV 


RO, (Rl) i 


4*: 


CLR 
ENABL 


SDWLST(RO) i 




MOV 


(SP)+, R2 




RETURN 





STORE INTO LIST HEAD 
SAY WE ARE TAIL OF LIST 
** ENABLE ** 



t 

I 

t 
I 
I 

i 
f 
I 
t 
i 
4 

I 
I 

i 

f 
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t 
i 
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i 



t 

< 



1 

2 






3 






4 






5 






6 






7 






S 






9 






10 






11 






12 






13 






14 






15 002734 


010100 




16 002736 


005760 


OOOOOOG 


17 002742 


001412 




18 






19 002744 


016001 


0000000 


20 002750 


004767 


001544 


21 






22 002754 


010001 




23 002756 


062701 


0000Q2G 


24 002762 


012161 


177774 


25 002766 


001375 




26 






27 002770 


010001 




28 002772 


062701 


OOOOOOG 


29 002776 


005721 




30 003000 


001376 




31 003002 


016061 


OOOOOOG 177776 


32 003010 


016001 


OOOOOOG 


33 003014 


005361 


OOOOOOG 


34 003020 


017060 


OOOOOOG OOOOOOG 


35 003026 


042760 


OOOOOOG OOOOOOG 


36 






37 






38 003034 


005760 


OOOOOOG 


39 003040 


001002 




40 003042 


004767 


000002 


41 003046 


000207 





SBTTL SFRCMP 



Spool read completion routine 



ENTERED WHEN A READ 



SPOOL READ COMPLETION ROUTINE 
FROM THE SPOOL FILE FINISHES. 

Inputs: 
Rl = Address of SDCB. 



ADD THE DISK ADDRESS OF THE BLOCK JUST READ TO THE END 
OF THE LIST OF BLOCKS WHICH ARE BEING REMEMBERED IN CASE 
THE OPERATOR WANTS TO BACK UP IN THE SPOOL FILE. 
SEE IF THERE IS ROOM LEFT FOR ANOTHER BLOCK ADDRESS. 



SFRCMP: MOV R1,R0 

TST SDBULS(RO) 
BEQ 1* 

i TABLE IS FULL. FORGET OLDEST 



2$ 



1*: 



3*: 



MOV 
CALL 
SHOVE UP ALL 
MOV 
ADD 
MOV 
BNE 



SDBU<R0),R1 

RLSBLK 

TABLE ENTRIES 

RO, Rl 

#SDBU+2, R 1 

<Rl)+,-4<Rl> 

2* 



MOVE SDCB ADDRESS TO RO 

IS TABLE FULL? 

BR IF TABLE NOT FULL 

ENTRY. 

GET OLDEST DISK ADDRESS 

RELEASE THE BLOCK 

POINT INTO TABLE 

SHIFT UP OVER 1ST ENTRY 
LOOP UNTIL ALL MOVED 



IN TABLE 



ADD NEW ENTRY TO 1ST FREE SLOT IN TABLE 
MOV RO, Rl 
ADD #SDBU, Rl 

TST (Rl)+ i IS THIS SLOT EMPTY? 

BNE 3* i SEARCH FOR 1ST FREE SLOT 

MOV SDFLNK(R0)»-2(Rl)i REMEMBER THIS DISK ADDRESS 
MOV SDSFCB(R0),R1 ; POINT TO SFCB 
DEC SFNMBL<R1) i SAY 1 LESS BLOCK IN FILE 
MOV eSDBUF2<R0),SDFLNK<R0> ; SET NEW DISK FLINK 
BIC #SD*INR,SDFLAG<RO> > SAY READ IS FINISHED 

SEE IF A WRITE TO SPOOLED DEVICE IS IN PROGRESS. 

IF NOT, START ONE. 



9*: 



TST 
BNE 
CALL 
RETURN 



SDBUFKRO) 

9* 

SPOLWR 



OUTGOING BUFFER SET UP? 
BRANCH IF YES 
START WRITE 



i 
i 
t 
i 

i 
C 

c 

€ 

4 
I 
4 

< 
i 
i 
i 
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I 
i 
t 
I 
I 
< 
f 

< 

i 
< 

I 

i 

I 
i 

i 

I 

i 
i i 



i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

*">7 

CI 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003050 
003052 
003054 
003062 
003066 
003070 
003074 
003076 
003104 

003106 
003112 
003116 
003124 
003132 
003134 
003140 
003142 
003146 
003150 
003154 



003160 
003162 
003166 



003172 
003174 
003202 
003206 
003210 
003214 
003220 
003224 
003226 
003232 
003240 



003244 
003250 



010146 
010246 

005760 
001102 
016002 
001466 
032760 
001073 

010260 
005060 

032760 
001055 
005760 
001403 
005360 
000447 
005762 
001444 



003156 010046 



010001 
062701 
004767 



011600 
066061 
005260 
010200 
062700 
004767 
016200 
005400 
010061 
012761 
011661 



004767 
012600 



SBTTL SPOLWR 



Write to spooled device 



SPOLWR IS CALLED TO START A WRITE OPERATION TO A 

SPOOLED DEVICE. WHEN CALLED RO MUST POINT TO 

THE SDCB FOR THE DEVICE. ALL REGISTERS ARE PRESERVED. 



SPOLWR: 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

000002 



MOV 

MOV 

DISABL 

TST 

BNE 

MOV 

BEG 

BIT 

BNE 



Rl, -<SP> 
R2, -<SP> 



*# DISABLE ## 

IS WRITE IN PROGRESS NOW? 

BRANCH IF YES 

IS A BUFFER READY TO GO? 

BRANCH IF NOT 
#SD*INR,SDFLAG<RO) i IS INPUT READ STILL GOING? 
8* i BRANCH IF YES 



SDBUFKRO) 

8* 

SDBUF2<R0),R2 

7* 



THERE IS A BUFFER READY TO GO. START WRITE. 



3$: 



MOV 

CLR 

ENABL 

BIT 

BNE 

TST 

BEG 

DEC 

BR 

TST 

BEG 



R2, SDBUFKRO) 
SDBUF2(R0> 



; SET ADDR OF OUTPUT BUFFER 
; SAY NO INPUT BUFFER 
; ## ENABLE #* 
#SD*DEL, SDFLAG4R0) i ARE WE DELETING THIS FILE? 



1* 

SDSKIP<RO> 

3* 

SDSKIP<RO) 

1* 

2<R2) 

1* 



BRANCH IF YES 

ARE WE SKIPPING FORWARD? 

BR IF NOT 

DEC REMAINING SKIP COUNT 

SKIP THIS BLOCK 

IS WORD COUNT IN BUFFER 0? 

BRANCH IF ZERO 



Write this block to the spooled device. 
!*: MOV RO, -<SP) ; SAVE SDCB ADDRESS 



OOOOOOG 
OOOOOOG 



Get a system I/O queue entry. 

MOV RO, Rl 

ADD #SDCHAN, Rl 

CALL GETSYQ 



POINT TO SDCB 

POINT TO SPOOLED DEVICE CHANNEL BLOCK IN SDCB 

GET SYSTEM I/O QUEUE ELEMENT 



Set up I/O queue element for the write 



OOOOOOG OOOOOOG 
OOOOOOG 

000004 
OOOOOOG 

000002 

OOOOOOG 

003310' OOOOOOG 
OOOOOOG 



OOOOOOG 



MOV 

ADD 

INC 

MOV 

ADD 

CALL 

MOV 

NEG 

MOV 

MOV 

MOV 



(SP),RO iGET ADDRESS OF SDCB 

SDBLK<RO),Q. BLKN<R1);SET BLOCK NUMBER 



ADVANCE BLOCK NUMBER 

GET BUFFER ADDRESS 

SKIP OVER BUFFER HEADER 

SET BUFFER ADDRESS IN I/O QUEUE ELEMENT 

GET # WORDS TO WRITE 

NEGATIVE «-> WRITE OPERATION 



SDBLK(RO) 

R2, RO 

#4, RO 

SYBFAD 

2<R2), RO 

RO 

RO, Q. WCNT(Rl) 

#SWCMP,Q. C0MP(R1);SET ADDRESS OF COMPLETION ROUTINE 

(SP),Q CHAN<R1) ;PUT SDCB ADDRESS IN Rl FOR COMPL ROUTINE 



Start the write 



TRY 



I 
I 

r 

€ 

« 

< 
€ 
t 
I 

I 



CALL 


SYQIO 


i QUEUE THE I /O REQUEST 


MOV 


<SP)+, RO 


j GET BACK SDCB ADDRESS 


TO START 


READ OF NEXT 


BLOCK FROM FILE. 



) I 

I 

c 
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5B 003252 

59 003260 

60 003264 
61 

62 

63 003266 

64 003270 

65 003274 

66 003302 

67 003304 

68 003306 



004767 
000406 



010001 
004767 

012602 
012601 
000207 



177064 



-, ** ENABLE ** 
; TRY TO DO READ 



000014 



7*: ENABL 

CALL SPOLRD 

BR 9* 
i WE ARE DELETING THIS FILE SO IGNORE THIS BLOCK AND READ NEXT 
i FAKE CALL TO WRITE COMPLETION ROUTINE. 
1*: MOV RO, Rl > GET SDCB ADDRESS 

CALL WRITE COMPL ROUTINE 
8*: ENABL ; ** ENABLE ** 

9*: 



MOV 


RO, Rl 


CALL 


SWCMP 


ENABL 




MOV 


(SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





i 

t 

4 
< 

i 
( 

t 



€ 
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< 
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i 
I 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



003310 
003312 
003316 
003320 
003324 
003330 
003332 



003334 
003340 

003342 
003350 



003356 
003362 

003366 
003370 
003372 
003376 
003400 
003402 
003406 
003412 
003414 

003416 
003422 
003430 
003434 
003440 
003444 



003454 
003460 



010100 
016001 
011146 
004767 
005060 
005726 
001403 



004767 
000207 

032760 
001402 



012701 
004767 

010246 
010002 
062702 
012201 
001405 
005062 
004767 
000771 
012602 

016001 
042760 
005060 
005060 
005060 
005267 



003450 004767 



004767 
000207 



. SBTTL SWCMP — Spool write completion routine 

SWCMP IS THE COMPLETION ROUTINE WHICH IS ENTERED 
ON COMPLETION OF A WRITE TO A SPOOLED DEVICE. 
Rl IS DESTROYED (ALLOWED FOR COMPL ROUTINES). 
ALL OTHER REGISTERS ARE PRESERVED. 
Inputs: 
Rl = Address of SDCB 



SWCMP: 



OOOOOOG 

001310 
OOOOOOG 



MOV 

MOV 

MOV 

CALL 

CLR 

TST 

BEG 



R1,R0 

SDBUFKRO) 

<R1),-<SP) 

RLSBUF 

SDBUFKRO) 

<SP) + 



Rl 



MOVE SDCB ADDRESS TO RO 

POINT TO SPOOL BUFFER 

SAVE DISK FLINK FROM BUFFER 

RELEASE SPOOL BUFFER 

SAY WRITE IS FINISHED 

IS FILE FLINK ZERO? 

BRANCH IF ZERO — END OF FILE 



177510 



OOOOOOG OOOOOOG 5*: 



003352 004767 000104 



OOOOOOG 
000162 



OOOOOOG 



177776 
001106 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

000504 

176064 



5* 
THIS IS NOT THE END OF THE FILE. 
TRY TO START NEXT WRITE. 

CALL SPOLWR i TRY FOR WRITE 

RETURN 
THIS IS THE END OF THE FILE. 

BIT #SD*DEL, SDFLAG<RO)i ARE WE DELETING THE FILE? 
BEQ 8* j BR IF NOT 

; WE ARE FINISHED DELETING A FILE. 

i OUTPUT A CR-LF TO MAKE SURE THE PRINTER BUFFER GETS EMPTIED. 
CALL SWCRLF ; WRITE CR-LF TO SPOOLED DEVICE 

• Call routine to see if we need to signal EOF to device handler 
8*: MOV #DF*CLS»R1 ; Get .CLOSE special function code 

CALL SDFUNC > See if we need to signal EOF to device 

; RELEASE ANY DISK BLOCKS THAT WE ARE HOLDING FOR BACKUP 



6*: 



7*: 



1*: 



MOV 


R2, -<SP) 


MOV 


RO, R2 


ADD 


#SDBU, R2 


MOV 


(R2)+, Rl 


BEQ 


7* 


CLR 


-2(R2) 


CALL 


RLSBLK 


BR 


6$ 


MOV 


<SP)+, R2 



POINT TO CELLS HOLDING ADDRESSES 

GET SAVED DISK ADDRESS 
BR IF REACHED END OF LIST 
CLEAR THE TABLE 
RELEASE THE DISK BLOCK 



RELEASE DEVICE AND FILE. 



OOOOOOG 



SDSFCB<R0),R1 ; POINT TO ACTIVE SFCB 

#SD*CLR,SDFLAG<RO); CLEAR SOME DEVICE CONTROL FLAGS 

SDSKIP(RO) i FINISHED SKIPPING 

SDBLK(RO) 

SDSFCB(RO) 

NESB i ONE MORE EXTRA BUFFER AVAILABLE 



4* 



MOV 

BIC 

CLR 

CLR 

CLR 

INC 
Free the SFCB 

CALL FRESFB > Free the SFCB 

TRY TO START UP NEXT FILE ON THIS DEVICE 

CALL SPOLGO : TRY TO START SPOOLER 

RETURN 



{ 

< 



i 
c 

c 
I 
I 

« 

i 
t 

« 

i 

i 
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IS 
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. SBTTL SWCRLF — Write cr-lf to spooled device 
SWCRLF is called to write carriage-return* line-feed to a spooled device. 



Inputs: 
RO = Address of SDCB for the device. 

Outputs: 
RO is preserved. 



003462 010046 

003464 010146 

003466 010246 

003470 010002 



003472 010001 

003474 062701 OOOOOOG 

003500 004767 OOOOOOG 



003504 062761 000001 OOOOOOG 

003512 012700 000010' 

003516 004767 OOOOOOG 

003522 012761 177777 OOOOOOG 

003530 005061 OOOOOOG 



003534 004767 OOOOOOG 



003540 012602 

003542 012601 

003544 012600 

003546 000207 



SWCRLF: MOV 
MOV 

MOV 
MOV 



RO, -<SP> 
R1,-<SP) 
R2, -<SP) 
RO, R2 



Get system I/O queue element 

MOV RO, Rl 

ADD #SDCHAN, Rl 

CALL GETSYQ 



GET ADDRESS OF SDCB 



GET ADDRESS OF SDCB 

POINT TO CHANNEL BLOCK FOR SPOOLED DEV IN SDCB 

GET SYSTEM I/O QUEUE 



Set up queue element for the write 



ADD 




#1, Q. BLKN<R1) 


MOV 




#CRTXT, RO 


CALL 




SYBFAD 


MOV 




#-l,Q. WCNT<R1) 


CLR 




Q. C0MP<R1) 


Start the 


I/O 


CALL 




SYGIO 


Finished 






MOV 




(SP)+, R2 


MOV 




<SP>+, Rl 


MOV 




(SP)+, RO 


RETURN 





SAY BLOCK # = 1 

GET ADDRESS OF BUFFER TO BE WRITTEN 

STORE BUFFER ADDRESS IN I/O QUEUE ELEMENT 

SET WORD COUNT ( - =~> WRITE) 

NO COMPLETION ROUTINE 



QUEUE THE I/O REQUEST 



< 
( 

< 
i 
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< 
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( 

i 
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. SBTTL SDFUNC 



Send special function code to spooled device 



SDFUNC is called to simulate a . SPFUN special function operation to 
the spooled device. This is used to simulate a .ENTER or .CLOSE 
operation to devices that accept these functions. 

Inputs: 
Rl = . SPFUN function code to be sent to handler. 
RO = Address of SDCB 



003550 
003552 
003554 



010046 
010246 
010102 



SDFUNC: MOV 
MOV 
MOV 



RO, -<SP> 
R2, -<SP> 
Rl, R2 



> Carry function code in R2 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



003556 
003562 
003570 
003572 
003600 



003602 
003604 
003610 
003614 
003620 



003624 
003626 
003630 



116001 
032761 
001004 
032761 
001411 



010001 
062701 
004767 
110261 
004767 



012602 
012600 
000207 



0000000 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



See if spooled device is directory structured and can accept .SPFUN 
requests. 

MOVB SDDVU<R0),R1 ; Get index number for spooled device 

BIT #DS*NRD> DVSTAT<Ri ) i Special directory structured device? 

BNE 1* i Br if yes 

BIT #DX*NRD, DVFLAG(Rl) ; Hidden special dir dev flag set? 

BEG. 9* J Br if not 

Send special function to handler 



1*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



9*: 



MOV 


RO, Rl 


ADD 


#SDCHAN, Rl 


CALL 


GETSYQ 


MOVB 


R2, Q. FUNC<R1) 


CALL 


SYGIO 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP)+, RO 


RETURN 





;Get address of SDCB 

; Point to channel block in SDCB 

; Get an I/O queue element 

; Set .SPFUN function code 

i Queue the operation for the handler 



i 
i 

r 

c 

i 

I 
( 
i 
t 
« 
i 
i 
f 

< 
€ 
I 

( 



i * 



i 
t 
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SDCLOS — Close spooled channel 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 003632 010146 

12 003634 010246 

13 003636 016701 OOOOOOG 

14 003642 032761 OOOOOOG 

15 003650 001427 

16 003652 004767 001044 

17 003656 103424 
IS 

19 003660 010046 

20 003662 016100 OOOOOOG 
21 

22 003666 004767 175340 

23 003672 005067 OOOOOOG 

24 003676 004767 175364 

25 003702 005067 OOOOOOG 

26 003706 112761 177777 
27 

28 003714 142761 OOOOOOG 

29 003722 004767 175616 

30 003726 012600 

31 003730 012602 

32 003732 012601 

33 003734 000207 
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. SBTTL SDCLOS 



Close spooled channel 



SDCLOS IS CALLED TO SEE IF A CHANNEL WHICH IS BEING 
CLOSED IS ASSOCIATED WITH A SPOOLED DEVICE. 



Inputs: 
CHNNUM 
CHNADR 
CORUSR 



User channel number. 

Address of current channel block. 

Job index number 



SDCLOS: 



OOOOOOG 



OOOOOOG 



OOOOOOG 



MOV 

MOV 

MOV 

BIT 

BEG 

CALL 

BCS 
i THIS IS A 

MOV 

MOV 
i WRITE BLOCK 

CALL 

CLR 

CALL 

CLR 

MOVB 
; TRY TO START 

BICB 

CALL 

MOV 
9*: MOV 

MOV 

RETURN 



R 1 , - < SP ) 
R2, -<SP> 
CHNADR, Rl 
#CS*SPL, C. CSW<R1 
9* 

FNDSD 
9* 
SPOOLED CHANNEL — 
RO, -(SP) 
SFSDCB(R1)*R0 
WITH FLINK = TO 
SGETBF 
SPUBUF 
SFLUSH 
SXSFCB 

#-1, SFCHAN(Rl) 
SPOOLER 

#SF*HLD, SFFLAGCR 
SPOLGO 
<SP)+, RO 
(SP)+, R2 
<SP)+,R1 



i GET ADDRESS OF CURRENT CHANNEL BLOCK 

)i IS CHANNEL OPENED TO SPOOLED DEVICE? 

i BR IF NOT 

i IS THIS A SPOOLED CHANNEL? 

i BRANCH IF NOT 

CLOSE OUT THE FILE. 

; GET ADDRESS OF SDCB 

SIGNAL END OF FILE 
iMAKE SURE WE'VE GOT BUFFER 
; SET FILE FLINK = 
.WRITE OUT BUFFER 
; SAY BUFFER IS FREE 
; DISASSOCIATE FILE AND CHANNEL 

1) ;SAY FILE IS FREE TO START 
; TRY TO START SPOOLER 



i 
f 
i 



< 

€ 

I 
i 

i 

i 
t 
I 

i 
i 
i 



t 
< 

i 
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I 
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i 
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i 
> « 

I 

! i 
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TSSPOL 
SPLDEL 



T/S SPOOLING ROUTINES 
-- Delete a spool file 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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. SBTTL SPLDEL — Delete a spool file 

SPLDEL is called to delete a spool file. 
There are three cases to contend with: 

1. Spool file is currently being processed by spooler. 

— Set SD*DEL flag to cause spooler to delete rest of file. 

2. Spool file is still open. 

— Set SF*DEL flag to cause spooler to delete file when it is closed. 

3. Spool file is closed but spooler hasn't started working on it yet. 

— Delete the spool file immediately. 

Inputs: 
R3 - ID number of spool file to delete. 

Outputs: 
C-flag cleared ==> Spool file found and taken care of. 
C-flag set ==> Could not find file with specified ID. 



003736 
003740 
003742 



003744 
003750 
003754 
003756 
003762 
003764 
003770 
003772 
003776 
004000 
004004 



004006 
004010 



010146 
010246 
010346 



012700 
020027 
103014 
016002 
001406 
020362 
001410 
016202 
001372 
062700 
000761 



000261 
000457 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



SPLDEL: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2,-<SP> 
R3, -(SP) 



Try to find the spool file with the specified ID 



5*. 



8*: 



7*: 



6*: 



MOV 


#SDCB, RO 


CMP 


RO, #SDCBND 


BHIS 


6* 


MOV 


SDFHD<R0),R2 


BEG 


7* 


CMP 


R3, SFID<R2) 


BEG 


10* 


MOV 


SFGLNK(R2),R2 


BNE 


8* 


ADD 


#SDCBSZ, RO 


BR 


5* 


Error: We 


cannot find a sp 


SEC 




BR 


9* 



Point to first SDCB 

Checked all? 

Br if yes — could not find file 

Get address of 1st SFCB for this device 

Br if none 

Is this the SFCB for the correct file? 

Br if yes 

Get address of next SFCB for this device 

Loop if more to check 

Point to next SDCB 

Go check it 



; Signal error on return 



Found spool file with the specified ID 

RO = SDCB address 

R2 = SFCB address 
Set flag in SFCB saying file is to be deleted 



004012 152762 OOOOOOG OOOOOOG 10*: 



BISB 



#SF*DEL, SFFLAG(R2) ; Set delete-file flag 



004020 
004024 
004026 
004034 



020260 
001004 
052760 
000444 



OOOOOOG 



OOOOOOG OOOOOOG 



If file is currently being processed by the spooler, set the 
delete-file flag for the spooler. 

CMP R2, SDSFCB(RO) > Is this file the active one for this device? 

BNE 1* i Br if not 

BIS #SD*DEL, SDFLAG<RO) jTell spooler to delete the file 

BR 11* 

File is not currently being processed by the spooler. 



i 
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TSSPOL T/S SPOOLING ROUTINES 
SPLDEL — Delete a spool file 



\ i 
i 

i 

h 

i 
i 

4 
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I 
I 

t 

i 
i 

( 



58 




1 




59 




t 




60 004036 


126227 


OOOOOOG 177777 


I* 


61 004044 


001040 






62 




, 




63 




i 




64 




1 




65 




. 




66 004046 


152762 


0000000 OOOOOOG 




67 




t 




68 




. 




69 




, 




70 004054 


016201 


OOOOOOG 




71 




J 




72 




t 




73 




, 




74 004060 


010046 


2* 


75 004062 








76 004120 


012600 






77 




. 




78 








79 








80 004122 


004767 


000372 




81 








82 








83 








34 004126 


016701 


OOOOOOG 




85 004132 


010162 


OOOOOOG 




86 004136 


001350 






87 








88 








89 








90 








91 004140 


010201 






92 004142 


004767 


000012 




93 








94 








95 








96 004146 


000241 




11 


97 






t 


98 








99 








100 004150 


012603 


< 


?* 


101 004152 


012602 






102 004154 


012601 






103 004156 


000207 
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See if file has been closed yet. 

CMPB SFCHAN<R2>,#-1 »Is file still open? 

BNE 11* ;Br if yes — spooler mill delete it later 

File is closed and is not yet being processed by the spooler. 
We will delete the file and free its blocks. 

BISB #SF*HLD» SFFLAG(R2) ; Set flag so spooler won't start on it 
Get number of 1st block in this spool file 

MOV SFSTRT<R2), Rl > Get # of 1st block in spool file 

Read in 1st word of the block to get the flink to the next block 

MOV RO, -<SP> i Save SDCB address 

, READW #SPLARG» #USPLCH, #SPDLBF, #1. , Rl ; Read 1st word from block 

MOV <SP)+, RO ; Recover SDCB address 

Free the block 

CALL RLSBLK ; Release this block 

Get number of next block in file 

MOV SPDLBF, Rl > Get number of next block 

MOV R 1 1 SFSTRT < R2 ) ; Set as starting block in case we are aborted 

BNE 2* .Loop if more blocks to delete 

We have finished freeing all of the blocks in the file. 
Release the SFCB. 



MOV 
CALL 



R2, Rl 
FRESFB 



iGet address of SFCB to Rl for FRESFB 
;Free the SFCB 



We successfully deleted the file 

S: CLC .Signal success on return 

Finished 



MOV 


<SP>+, R3 


MOV 


(SP)+, R2 


MOV 


( SP ) +, R 1 


RETURN 





I 
I 

f 

c 
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( 
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t 
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« 

t 

i 
i 
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i 
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> 4 



TSSPOL 


T/S SPO 


OLINO RO 


JUNES 


FRESFB - 


— Release a SFCB 


i 
2 








3 








4 








5 








6 








7 








8 








9 


004160 


010046 




10 


004162 


010246 




11 








12 








13 








14 


004164 


016100 


OOOOOOG 


15 








16 








17 








IS 


004170 


105061 


OOOOOOG 


1? 


004174 


005061 


OOOOOOG 


20 








21 








22 








23 








24 








25 


004200 


010002 




26 


004202 


062702 


OOOOOOG 


27 


004206 






28 


004214 


020112 




29 


004216 


001404 




30 


004220 


011202 




31 


004222 


062702 


OOOOOOG 


32 


004226 


000772 




33 


004230 


016112 


OOOOOOG 


34 


004234 


016761 


OOOOOOG 


35 


004242 


010167 


OOOOOOG 


36 


004246 


020167 


OOOOOOG 


37 


004252 


001002 




38 


004254 


005067 


OOOOOOG 


39 


004260 






40 








41 








42 








43 


004266 


012700 


OOOOOOG 


44 


004272 


004767 


OOOOOOG 


45 








46 








47 








48 


004276 


012602 




49 


004300 


012600 




50 


004302 


000207 
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. SBTTL FRESFB — Release a SFCB 



FRESFB is called to release a SFCB after we have finished processing 
the spool file. 

Inputs: 
Rl = Address of the SFCB 



FRESFB : MOV 
MOV 



RO, -<SP> 
R2, -<SP> 



Get address of associated SDCB 

MOV SFSDCB<R1)»R0 
Clean out some cells in the SFCB 



CLRB SFUSER(Rl) 
CLR SFSDCB<R1) 



; No associated user 
; No associated SDCB 



1*: 



SDCB 
want? 



2*: 



3*: 



Remove this SFCB from the list associated with the SDCB 
and put the SFCB on the free list. 

; Point to SDCB 

iPoint to list head for this 
i #* Disable interrupts ** 
; Is next entry the one uie 
i Br if yes 
iChain to next one 
iPoint to flink field 
; Go check next one 
{Remove SFCB from chain 
DiAdd SFCB to free list 

; Is our SFCB the current SFCB? 

; Br if not 

> Say no current SFCB 

i ** Enable interrupts ** 

Restart any users waiting for a free SFCB 

i Get wait state 

> Restart waiting users 



MOV 


RO, R2 


ADD 


#SDFHD, R2 


DISABL 




CMP 


Rl, (R2) 


BEG. 


2* 


MOV 


(R2),R2 


ADD 


#SFGLNK, R2 


BR 


1* 


MOV 


SFQLNMRl), <R2) 


MOV 


SFCBFH, SFQLNK(R 


MOV 


R1,SFCBFH 


CMP 


R1,SDSFCB 


BNE 


3* 


CLR 


SDSFCB 


ENABL 





MOV 


#S*SPCB, RO 


CALL 


UREGO 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP)+» RO 


RETURN 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004304 
004306 
004310 

004316 
004322 



004324 
004330 
004334 

004336 
004342 
004344 
004352 
004354 
004360 

004362 
004366 
004372 
004374 
004376 
004400 
004402 
004406 
004412 
004414 
004416 
004420 
004422 
004424 
004426 
004430 
004432 
004434 
004436 
004440 
004446 
004450 
004452 
004454 



004456 
004464 
004466 



010246 
010346 



005767 
001017 



016100 
016002 
001450 

020227 
101004 
132761 
001441 
005360 
000402 

005367 
016700 
005720 
001776 
014002 
010046 
166700 
072027 
005003 
006102 
103402 
005203 
000774 
060300 
000241 
006002 
005303 
002375 
010236 

005200 
012603 
012602 
000207 



132761 
001406 
142761 



. SBTTL GTSBLK 



Get free spool file disk block 



GTSBLK IS CALLED TO GET A FREE SPOOL FILE DISK BLOCK. 
IF NONE ARE AVAILABLE THE USER IS SUPENDED UNTIL 
ONE IS RELEASED. WHEN CALLED, Rl MUST POINT TO 
THE SFCB. ON RETURN THE FREE DISK BLOCK NUMBER 
IS IN RO. ALL OTHER REGISTERS ARE PRESERVED. 



GTSBLK: 
5*: 



OOOOOOG 



MOV R2, -«SP) 

MOV R3, -<SP> 

DISABL >*# DISABLE #* 

F THERE ARE ANY FREE PUBLIC SPOOL BLOCKS. 

TST NFRESB > ANY FREE PUBLIC BLOCKS? 

BNE 6* > IF YES THEN GO USE ONE 

THERE ARE NO FREE PUBLIC SPOOL BLOCKS. 

EACH SPOOL DEVICE HAS A SMALL NUMBER OF PRIVATE BLOCKS. 
SEE IF WE CAN FIND A FREE PRIVATE BLOCK TO USE. 



OOOOOOG 
OOOOOOG 



000002G 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
173410 



MOV SFSDCB(R1),R0 
MOV SDFRBL<R0),R2 
BEQ 1* 



POINT TO SDCB 

GET # FREE PRIVATE BLOCKS 

GIVE UP IF NONE AVAIL 



SAVE THE LAST FEW PRIVATE BLOCKS FOR ACTIVE FILES. 



R2, #<SNBUX+2> i ENOUGH FOR INACTIVE FILES? 

9* i BR IF YES 

#SF*BSY, SFFLAG(Rl); IS THIS FILE ACTIVE? 



9*: 



6$ 
8* 
7* 



173374 
000003 



3*: 

2*: 
4*: 



1* 

SDFRBL(RO) 
8* 
FREE BLOCK — FIND IT 
NFRESB 
GRNTBL, RO 
<R0) + 
7* 

-<R0),R2 
RO, -<SP> 
GRNTBL, RO 
#3, RO 
R3 
R2 



CAN'T GET BLOCK IF INACTIVE 
USE A PRIVATE BLOCK 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



1*: 



CMP 

BHI 

BITB 

BEQ 

DEC 

BR 
THERE IS A 

DEC 

MOV 

TST 

BEQ 

MOV 

MOV 

SUB 

ASH 

CLR 

ROL 

BCS 

INC 

BR 

ADD 

CLC 

ROR 

DEC 

BGE 

MOV 

ENABL 

INC 

MOV 

MOV 

RETURN 
THERE ARE NO FREE BLOCKS — SUSPEND USER UNTIL ONE IS RELEASED. 
DON'T HOLD FILE FOR CHANNEL CLOSE IF FILE IS FULL. 

BITB #SF*HLD, SFFLAG(Rl) i IS FILE BEING HELD? 

BEQ 10* iBR IF NOT 

BICB #SF*HLD, SFFLAG(Rl); RELEASE THE FILE 



R3 
3* 

R3, RO 

R2 
R3 
4* 
R2, @(SP) + 

RO 

<SP)+, R3 
(SP)+, R2 



SAY ONE LESS BLOCK THERE 

POINT TO BIT MAP TABLE 

ANY FREE BLOCKS IN THIS WORD? 

BRANCH IF NOT 

GET BITS FROM WORD 

SAVE WORD LOCATION 

GET BYTE INDEX 

CONVERT BYTE TO BIT INDEX 

COUNT BITS 

SEARCH FOR FREE GRAN BIT 

BRANCH IF FREE BIT FOUND 

KEEP TRACK OF ADDRESS 



GET FINAL BLOCK ADDRESS 
MARK BLOCK AS USED NOW 



PUT BACK BIT MAP WORD 

** ENABLE #* 

1ST BLOCK IN FILE IS 



f 
I 
f 
t 
< 

i 
i 
4 
< 

( 

{ 



# l 



i 
i 
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58 004474 

59 004500 
60 

61 004502 

62 004506 

63 004512 



004767 
000703 

012700 
004767 
004767 



175044 



OOOOOOG 
OOOOOOG 
OOOOOOG 



CALL SPOLGO ; TRY TO START PRINTING FILE 

BR 5* ; NOW GO TRY TO GET SPACE AGAIN 

SUSPEND USER UNTIL A BLOCK IS FREED 



64 004516 000674 



10*: MOV #S*SPDB, RO 

CALL QNSPND 

CALL CHKABT 

BR 5* 



QUEUE FOR SPOOL BLOCKS 
SUSPEND USER #* ENABLE ** 
SEE IF WE'VE BEEN ABORTED 



TSSPOL 
RLSBLK 



T/S SPOOLING ROUTINES MACRO V05. 05 
- Free spool file disk block 
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SBTTL RLSBLK — Free spool file disk block 



004520 
004522 
004524 
004526 
004530 
004534 
004536 
004540 
004542 
004544 
004546 
004552 
004554 
004560 
004564 
004566 
004570 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 

34 004616 

35 004622 

36 004626 

37 004630 

38 004632 
39 



004572 
004574 
004602 
004604 
004610 
004612 



010246 
010046 
005301 
010100 
042700 
005002 
000261 
006002 
005300 
002375 
072127 
006301 
066701 
020167 
103401 
000000 
050211 

011600 
026027 
103003 
005260 
000402 
005267 

012700 
004767 
012600 
012602 
000207 



RLSBLK IS CALLED TO RELEASE A SPOOL FILE DISK BLOCK. 
WHEN CALLED, RO MUST POINT TO THE SDCB. 

WHEN CALLED Rl MUST CONTAIN THE SPOOL FILE BLOCK NUMBER. 
THE FIRST USER WAITING FOR A BLOCK IS RESTARTED BY RLSBLK. 
ALL REGISTERS ARE PRESERVED EXCEPT Rl. 



177760 



177774 

173222 
173220 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



RLSBLK. MOV 

MOV 

DEC 

MOV 

BIC 

CLR 

SEC 

1*: ROR 

DEC 

BGE 

ASH 

ASL 

ADD 

CMP 

BLO 

HALT 

2*: BIS 

; INCREMENT 

MOV 

CMP 

BHIS 

INC 

BR 

3*: INC 

i RESTART ANY 



R2, -<SP> 
RO, -<SP> 
Rl 

Rl, RO 

#177760, RO 
R2 

R2 

RO 

1* 

#-4, Rl 

Rl 

GRNTBL, Rl 

R1,GRNEND 

2* 



4$: 



MOV 

CALL 

MOV 

MOV 

RETURN 



R2> (Rl) 
NUMBER OF FREE 
<SP),RO 
SDFRBL(RO) 
3* 

SDFRBL(RO) 
4* 

NFRESB 
USER WAITING 
#S*SPDB, RO 
UREGO 
<SP)+, RO 
<SP)+, R2 



1ST BLOCK IS # 1 
SAVE DISK BLOCK # 
GET # OF BIT IN WORD 

; SET BUSY BIT 

;FORM MASK FOR SINGLE BIT 



; GET WORD INDEX 

POINT INTO BIT TABLE 

MAKE SURE STORE IS OK 

BRANCH IF OK 

SAFETY STOP 

MARK BLOCK AS FREE 
PUBLIC OR PRIVATE BLOCKS 
; POINT TO SDCB 
#PVSPBL;ADD FREE BLOCK TO PUBLIC OR PRIVATE? 
;BR IF PUBLIC 
;ADD TO PRIVATE 

iSAY ANOTHER FREE BLOCK 
FOR DISK BLOCK 

; POINT TO WAIT QUEUE HEAD 
; REACTIVATE 1ST USER 
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t 

i 

i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 004634 
10 004636 
11 

12 004644 

13 004650 
14 

15 004654 

16 004660 

17 004662 

18 004670 

19 004676 

20 004704 

21 004710 

22 004716 

23 004720 
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SBTTL RLSBUF — Release spool buffer 



RLSBUF IS CALLED TO RELEASE A SPOOL CORE BUFFER. 
WHEN CALLED, Rl MUST POINT TO THE BUFFER. 
SPOLRD IS CALLED TO RESTART ANY SPOOLERS WHO 
ARE WAITING FOR A BUFFER. 
ALL REGISTERS ARE PRESERVED EXCEPT Rl. 



010046 



016711 
010167 

016700 
001413 
016067 
042760 



OOOOOOG 

OOOOOOG 

173126 

OOOOOOG 
OOOOOOG 



RLSBUF: MOV RO, -<SP) 

DISABL 
i RELEASE THE BUFFER 

MOV SPLBHD, <R1) 

MOV Rl, SPLBHD 
; RESTART ANY WAITING SPOOL BUFFER REQUESTS. 



; ## DISABLE ## 



; LINK INTO FREE CHAIN 



173116 
OOOOOOG 



004767 175440 

012600 
000207 



1*: 



MOV SPBWHD, RO ; HEAD OF WAIT LIST 

BEG 1* ; BR IF NOONE WAITING 

MOV SDWLST(RO), SPBWHD ; REMOVE 1ST FROM LIST 

BIC #SD*BWT, SDFLAG<RO) ; SAY NO LONGER WAITING FOR BUFFER 

ENABL ; #* ENABLE ** 

CALL SPOLRD i SAY IT CAN DO A READ 

ENABL ; ** ENABLE *# 

MOV <SP>+, RO 

RETURN 
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2 016701 OOOOOOG 

004726 020167 OOOOOOG 

004732 103013 

004734 126761 OOOOOOG OOOOOOG 

004742 001004 



004744 126761 

004752 001405 

004754 062701 

004760 000762 

004762 000261 

004764 000401 

004766 000241 

004770 000207 



OOOOOOG OOOOOOG 
OOOOOOG 



. SBTTL FNDSD — Locate SFCB for spooled channel 
FNDSD is called to locate the SFCB associated with the current I/O channel. 

Inputs: 
CHNNUM a User channel number. 
CORUSR = Job index number 

Outputs: 
C-flag cleared if SFCB found, set otherwise. 
Rl = Address of SFCB. 

; POINT TO 1ST SFCB 

; CHECKED ALL SFCB 'S? 

; BR IF YES 
CORUSR, SFUSER<R1); IS THIS SFCB IN USE BY THIS USER-? 

i BR IF NOT 
CHNNUMi SFCHAN(Rl); IS SFCB ASSIGNED TO THIS CHANNEL^ 

;BR IF YES 

; POINT TO NEXT SFCB 

;G0 CHECK IT 

; SIGNAL ERROR ON RETURN 
i SIGNAL SUCCESS ON RETURN 



FNDSD: 


MOV 


SFCB,R1 


4*: 




CMP 


Rl.SFCBND 






BHIS 


1* 






CMPB 


CORUSR, SFU 






BNE 


2* 






CMPB 


CHNNUMi SFC 






BEG 


3* 


2*: 




ADD 


#SFCBSZ,R1 






BR 


4* 


i 


Can 


't find 


SFCB. 


1*: 




SEC 








BR 


5* 


> 


Found the SFCB. 


3*: 




CLC 




5$: 




RETURN 





f 
i 

4 
« 

i 
t 

< 



t 
€ 
f 

i 

< 
1 
( 
I 



TSSPOL 
CVTDVU 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
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004772 010246 
004774 010346 



004776 010103 

005000 005002 

005002 071227 000050 

005006 005703 

005010 001402 

005012 162703 000036 

005016 010301 

005020 000301 



005022 070227 000050 

005026 016702 OOOOOOG 

005032 020362 0000000 

005036 001407 

005040 162702 000002 

005044 002372 



005046 012701 
005052 000261 
005054 000402 



005056 050201 
005060 000241 



005062 012603 
005064 012602 
005066 000207 



177777 



. SBTTL CVTDVU — Convert device name to dev index and unit # 



CVTDVU is called to convert a RAD50 device name into the corresponding 
device index number and unit number. 

Inputs: 
Ri = RAD50 device name. 

Outputs: 
C-flag cleared ==> Conversion successful. 
C-flag set ==> Unable to find device name in tables. 
Rl = Device index number <low byte), device unit number (high byte). 



CVTDVU: 



MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



Split the unit number off of the full device name 



1*. 



MOV 


R1,R3 


CLR 


R2 


DIV 


#50, R2 


TST 


R3 


BEG. 


1* 


SUB 


#36, R3 


MOV 


R3, Rl 


SWAB 


Rl 



; Get full device name 

» Set up for divide 

i Split name and unit <R2=name, R3=unit) 

i Was a unit number specified? 

; Br if not 

i Convert unit number to binary value 

; Get unit number 

^Position to high-order byte 



Look up the device name to get the device index 



2*: 



MUL #50, R2 

MOV NUMDEV, R2 

CMP R3, PNAME<R2) 

BEG 3$ 

SUB #2, R2 

BGE 2* 



; Now get the device name without unit number 

; Get index number of last device 

; Search for device in name table 

; Br if found it 

> Try next device 

; Loop if more to check 



Error, cannot find device name in tables 

#-l,Rl 

9* 
Found the device in the tables 



MOV 
SEC 

BR 



> Set device # = unit # • 

> Signal error on return 



3$: 



9*: 



BIS 


R2, Rl 


CLC 




Finished 




MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





i Combine device # and unit # 
; Signal success on return 



» I 
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. SBTTL EMSPHL — EMT to set spool HOLD mode 
Kmon EMT to set spool hold mode. 



005070 



005070 016702 0000040 

005074 052762 OOOOOOG OOOOOOG 



Inputs: 
EMT arg block+4 = Address of SDCB for spooled device. 

EMSPHL: 

Set hold flag in SDCB 

MOV EMTBLK+4, R2 ; Point to SDCB 
BIS #SD*HLD, 3DFLAG<R2>> Set hold flag 

Set SFSHLD flag in each spool file 



005102 016203 OOOOOOG MOV 

005106 001406 BEG 

005110 152763 OOOOOOG OOOOOOG 1*: BISB 

005116 016303 OOOOOOG MOV 

005122 001372 BNE 



005124 000167 OOOOOOG 



Finished 
9*: JMP 



SDFHD<R2)/R3 * Point to 1st SFCB for the device 
9* » Br if there are none 

#SF*HLD> SFFLAG<R3); Set hold flag for file 
SFQLNK(R3>, R3 * Get address of next SFCB 
1* i Br if there is another file 



EMTXIT 
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. SBTTL EMSPNH — EMT to set spool NOHOLD mode 

Kmon EMT to set spool nohold mode. 

Inputs: 
EMT arg block+4 = Address of SDCB for spooled device. 

EMSPNH: 

Reset hold flag in SDCB 



005130 



005130 016702 000004G 

005134 042762 OOOOOOG 0000000 



005142 016203 OOOOOOG 

005146 001411 

005150 142763 OOOOOOG OOOOOOG 1*: 

005156 016303 OOOOOOG 

005162 001372 



005164 010200 

005166 004767 174352 



MOV EMTBLK+4, R2 > Point to SDCB 

BIC #SD*HLD> SDFLAG<R2)i Reset hold flag 

Clear SF*HLD flag in each spool file 

MOV SDFHD<R2),R3 ; Point to 1st SFCB for the device 

BEG 9* ; Br if there are none 

BICB #SF*HLD, SFFLAG(R3); Clear hold flag for file 

MOV SFQLNK<R3),R3 i Get address of next SFCB 

BNE 1* ; Br if there is another file 



Try to start spooler 



MOV 
CALL 



005172 000167 OOOOOOG 



Finished 
9*: JMP 



R2, RO 
SPOLGO 



EMTXIT 



j Get address of SDCB 



f 


TSSPOL 


T/S SPOOLING ROUTINES 


< 


SFLGPG 


— COPY 


FLAG PAGE TO SP 


« 


i 
2 
3 








1 


4 
5 










6 

7 

e 


005176 


010246 




* 


005200 


012704 


OOOOOOG 




9 


005204 


016702 


OOOOOOG 


t 


10 


005210 


020227 


OOOOOOG 


n 


005214 


103406 






12 


005216 


010267 


OOOOOOG 


i 


13 


005222 


004767 


173732 


14 


005226 


016702 


OOOOOOG 




15 


005232 


112422 




( 


16 


005234 


121427 


000200 


17 


005240 


001363 






18 











19 


005242 


010267 


OOOOOOG 


* 


20 


005246 


012602 






21 


005250 


000207 




1 


22 








23 










24 








( 


25 


005252 






26 




000001 






Errors detected 


: 
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. SBTTL SFLGPG — COPY FLAG PAGE TO SPOOL BUFFER 

SFLGPG copies the contents of the stolen CSI buffer into the 
spool buffer. 



SFLGPG: MOV 



1$: 



2*: 



MOV 

MOV 

CMP 

BLO 

MOV 

CALL 

MOV 

MOVB 

CMPB 

BNE 

MOV 
MOV 
RETURN 



R2, -<SP> 

#CSIBUF, R4 

SXBPNT, R2 

R2, #SPUBND 

2$ 

R2, SXBPNT 

SBUFOT 

SXBPNT, R2 

(R4>+, (R2) + 

<R4),#200 

1* 

R2, SXBPNT 
<SP)+, R2 



; Top of TSSPOL module 

SPLTOP : 

. END 



*** Assembler statistics 



Work file reads: 
Work file writes: 
Size of uiork file: 
Size of core pool: 
Operating system: 







9631 Words < 38 Pages) 

18176 Words < 71 Pages) 

RT-11 



Elapsed time: 00:00:42.53 

, LP: TSSPOL=DK: TSSPOL/C/N: SYM 



SAVE R2 

GET BEGINNING OF STOLEN BUFFER 

GET POINTER INTO SPOOL BUFFER 

BUFFER FULL? 

BR IF NOT 

SAVE POINTER INTO SPOOL BUFFER 

WRITE TO SPOOL FILE 

RESTORE POINTER INTO SPOOL BUFFER 

MOVE INTO SPOOL BUFFER 

END? 

BR IF NOT 

SAVE POINTER INTO SPOOL BUFFER 
RESTORE R2 



ff 
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Cross reference table <CREF V05. 05) 

*DILUP i-5S 9-90 

. . VI 7-28 7-28 7-30 18-75 18-75 

. . . V2 7-28 7-28 7-28# 7-2S# 18-75 18-75 18-75# 18-75# 

BELL l-94# 

C. CSW 1-63 3-106* 17-14 

CHKABT 1-66 3-50 20-63 

CHKSD 1-44 3-2 1# 

CHNADR 1-63 3-105 17-13 

CHNNUM 1-76 3-84 23-18 

CORUSR 1-52 3-60 3-72 23-16 

CR 1-88 l-92# 4-62 

CRTXT l-88# 15-25 

CS*SPL 1-62 3-106 17-14 

CSIBND 1-52 

CSIBUF 1-52 27-8 

CTRLTT 1-71 9-88 9-112 

CVTDVU 3-25 24-14# 

DF*CLS 1-50 14-28 

DF*ENT 1-50 9-128 

DMYDEV 1-55 3-29 

DS*NRD 1-50 16-19 

DVFLAG 1-51 16-21 

DVSTAT 1-50 16-19 

DX*NRD 1-51 16-21 

EMSPHL 1-44 25-S# 

EMSPNH 1-44 26-8# 

EMTBLK 1-51 4-27 4-28 4-42 25-12 26-12 

EMTXIT 1-50 25-25 26-30 

FILSPC 1-62 3-24 3-39 3-40 

FLGPAG 1-59 4-83 

FMMSG 1-59 9-96 

FNDSD 4-18 8-14 17-16 23-13# 

FRESFB 14-48 18-92 19-9# 

FREUSR 1-71 3-42 

GETSYQ 1-77 10-70 13-37 15-20 16-28 

GETUCH 1-76 4-49 4-61 4-71 4-93 

GRNEND l-86# 2-21* 21-22 

GRNTBL l-85# 2-14* 20-30 20-35 21-21 

GTSBLK 3-99 5-26 20-9# 

GTSYMB 1-54 9-92 

INTPRI 1-63 3-58 3-97 9-83 9-126 9-147 10-45 10-89 11-23 13-19 13-58 13-65 

19-39 20-48 22-19 22-21 

LF 1-88 l-93# 4-72 

LPRG1 1-75 3-73 

LPRG2 1-75 3-74 , 

LPROG 1-60 

LPROJ 1-60 

L5W 1-58 9-90 | 

LUNAME 1-54 

NESB 1-59 9-139* 14-46* 

NFRESB 1-54 2-57* 20-13 20-29* 21-32* i 

NSPLBL 1-56 2-15 2-55 

NSPLFL 1-56 2-42 

NUMDEV 1-51 24-31 t 

OVRHC 1-80 3-42 4-83 9-113 

PNAME 1-51 24-32 

t 
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PSW 


1-63 


3-54* 


3-58* 


3-88* 


3-97* 


9-7* 


9-83* 


9-126* 


9- 


-147* 


10- 


-13* 10-45* 


10-89* 




11-10* 


11-23* 


13-9* 


13-19* 


13-58* 


13-65* 


19-27* 


19-39* 


20- 


-11* 


20- 


-48* 22-10* 


22-19* 




22-21* 


























PVSPBL 


1-53 


21-28 
























Q. BLKN 


1-77 


10-76* 


13-42* 


1 5-24* 




















Q. CHAN 


1-78 


10-75* 


13-51* 






















Q. COMP 


1-78 


10-80* 


13-50* 


1 5-28* 




















Q. FUNC 


1-50 


16-29* 
























Q. WCNT 


1-78 


10-79* 


13-49* 


1 5-27* 




















GMSG 


1-54 


9-113 
























QNSPND 


1-66 


3-49 


20-62 






















RLSBLK 


12-20 


14-37 


18-80 


21-9# 




















RLSBUF 


14-13 


22-9# 
























RSQBR 


l-95# 


4-51 
























S*SPCB 


1-64 


3-48 


19-43 






















S*SPDB 


1-64 


9-143 


20-61 


21-34 




















SB*TXT 


1-54 


9-95 


9-101 






















SBUFOT 


4-91 


5-16# 


6-17 


27-13 




















SBUFWD 


1-73 


10-79 
























SD*BAK 


1-74 


10-18 


10-49 


10-60 




















SD*BWT 


1-59 


10-16 


10-37 


22-18 




















SD*CLR 


1-74 


14-42 
























SD#DEL 


1-73 


9-133 


13-20 


14-22 


18-54 


















SD*FLG 


1-57 


4-81 
























SD*FLK 


1-57 


9-57 
























SD*HLD 


1-60 


3-81 


25-13 


26-13 




















SD*INR 


1-72 


10-44 


12-35 


13-14 




















SD*RSV 


1-74 


8-10 
























SD*SMS 


1-56 


9-78 


9-116 






















SD*SNG 


1-56 


9-76 
























SDSWFM 


1-57 


9-28 


9-115 






















SDANAM 


1-57 


9-107 
























SDBLK 


1-72 


9-135* 


9-138* 


13-42 


13-43* 


14-44# 
















SDBU 


1-75 


10-54 


12-19 


12-23 


12-28 


14-33 
















SDBUF1 


1-70 


10-24 


12-38 


13-10 


13-17* 


14-11 


14-14* 














SDBUF2 


1-70 


10-14 


10-43* 


12-34 


13-12 


13-18* 
















SDBULS 


1-75 


12-16 
























SDCB 


1-51 


3-26 


18-25 






















SDCBND 


1-51 


3-27 


18-26 






















SDCBSZ 


1-73 


O*™" WW 


18-34 






















SDCHAN 


1-69 


13-36 


15-19 


16-27 




















SDCLOS 


1-44 


17-11# 
























SDDVU 


1-61 


3-31 


16-18 






















SDFHD 


1-72 


3-89 


9-16 


9-35 


9-63 


18-28 


19-26 


25-17 


26- 


-17 








SDFLAG 


1-69 


3-81 


4-81 


9-28 


9-57 


9-76 


9-78 


9-115* 


9- 


-116* 


9- 


-133* 10-16 


10-18 




10-37* 


10-44* 


10-49 


10-60* 


12-35* 


13-14 


13-20 


14-22 


14- 


-42* 


18- 


-54* 22-18* 


25-13* 




26-13* 


























SDFLNK 


1-70 


9-134* 


10-22 


10-55* 


10-76 


12-31 


12-34* 














SDFORM 


1-57 


9-45 


9-47 


9-49 




















SDFRBL 


1-53 


20-19 


20-26* 


21-28 


21-30* 


















SDFUNC 


9-129 


14-29 


16-11# 






















SDMOVE 


1-46 


4-10# 
























SDMV1 


4-37 


4-75 


4-79 


4-82 


4-87# 


















SDMVX 


4-19 


4-30 


4-104# 






















SDNAME 


1-55 


3-29 
























SDSFCB 


1-70 


9-8 


9-124* 


10-10 


12-32 


14-41 


14-45* 


18-52 


19- 


-36 


19- 


-38* 
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SDSKIP 
SDWLST 
SF*1ST 
SF*BN1 
SF*BSY 
SF*DEL 
SF*HLD 

SFCB 

SFCBFH 

SFCBND 

SFCBSZ 

SFCHAN 

SFFILE 

SFFLAG 



SFFLNK 

SFFORM 

SFID 

SFLGPG 

SFLUSH 

SFNMBL 

SFQLNK 

SFRCMP 

SFSDCB 

SFSTRT 

SFUSER 

SGETBF 

SGFSF 

SGNFMT 

SGOTFL 

SGX1 

SGX2 

SNBUX 

SPBWHD 

SPDLBF 

SPLARG 

SPLBHD 

SPLCHN 

SPLDEL 

SPLERR 

SPLINI 

SPLNB 

SPLND 

SPLSHF 

SPLTOP 

SPOLGO 

SPOLID 

SPOLRD 

SPOLWR 

SPOOLQ 

SPUBND 

SPUBUF 

SREX 



1-75 
1-71 
1-55 
1-52 
1-69 
1-55 
1-60 

26-19 
1-65 
1-74 
1-65 
1-55 
1-67 
1-67 
1-67 
9-40 

25-19* 
1-68 
1-56 
1-58 
1-45 
5-29 
1-68 
1-69 

25-20 

10-80 
1-68 
1-68 
1-67 
4-23 
9-50 
9-67 
9-22 
9-18 
9-10 
1-60 
l-87# 
1-53 
1-62 
1-65 
1-62 
1-46 
1-59 
1-45 
1-52 
1-52 
1-45 
1-46 
1-45 
1-58 
7-37 

12-40 

10-39 
1-76 
1-62 

10-15 



11-14 
4-36 
4-44 
7-35 
9-43 
3-83 

2-40 
2-4 1# 

23-14 
2-44 
3-84* 
3-69* 
3-61* 
9-43 

26-19* 
3-101* 
3-77* 
3-67* 

27-6# 
7-ll# 
3-86* 
2-49* 

26-20 

12-1 5# 
3-85* 
3-100* 
3-60* 
6-ll# 
9-76# 
9-83# 
9-42 
9-30 
9-147# 
2-56 

10-38 

18-75 
7-28 
2-28* 

10-69 

18-19# 
7-30 
2-7# 
2-26 
2-56 
8-9# 
2-13 
7-39 
3-63 
9-140 

13-7# 

11 -9# 
4-88 
5-22 

10-17 



13-24* 
11-18* 
4-48 
4-78 
9-125 
9-131 
8-20 

23-13 
3-55 

23-20 
17-26* 
3-70* 
3-83* 
9-66 

7-28 
3-78* 
18-30 

17-24 

7-33* 
3-57 



4-80 
9-134 
19-18* 
17-22 



9-44 
9-58 

20-22 
22-15 
18-84 
18-75 
10-33 



10-29 
10-29 

27-25# 
9-7# 
3-65* 
10-8# 
14-19 

27-10 

5-27* 
10-21 



14-43* 
1 1 -22* 
9-40 
9-136 
20-24 
18-47 
8-21 



3-57* 



18-60 
3-73* 
4-36 
9-125* 

7-31* 
3-79* 



22-17 



9-19 

3-93 



7-34 
18-70 
23-16 



9-77 
9-70 



22-17* 



10-42* 



14-50 

3-66* 
13-59 



8-24 



19-34 



23-18 
3-74* 
4-44* 

9-131 



4-58 



9-38 
3-96* 



17-20 
18-85* 



9—79 
9-120 



22-12 



10-23 



17-29 

3-67 

22-20 



7-15 
10-30 



9-36 



19-35* 



9-66 



17-28 



18-66 



20-55 



20-57 



25-19 



4-48* 
9-136 



9-21 



9-64 
9-23 



19-14 



4-78 
17-28* 



9-45 



7-35 
18-47* 



9-47 



8-19 
18-66* 



9-49 



8-21* 



9-102 



8-24* 
20-55 



9-36 
20-57* 



10-20 


10-56* 


12-33* 


9-51 


9-68 


18-32 


19-19* 


20-18 





19-31 



19-33 



19-34* 



9-1 24# 
9-146# 



22-13* 



20-58 



17-23* 
10-89* 
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SRX 


10-11 


10-40 


10-90# 




SWCMP 


13-50 


13-64 


14-10# 




SWCRLF 


14-26 


15-11# 






SXBPNT 


1-61 
27-19* 


4-87 


4-90* 


4-92 


SXSFCB 


1-61 


5-18 


6-11 


6-13 


SYBFAD 


1-65 


10-78 


13-46 


15-26 


SYQIO 


1-78 


10-85 


13-55 


15-32 


TSSPOL 


1-13# 


1-44 






UFORM 


1-53 


3-77 


3-78 


3-79 


URO 


1-76 


4-29* 


8-10* 


8-19* 


UREGO 


1-66 


9-144 


19-44 


21-35 


USPLCH 


1-64 


7-28 


7-28 


18-75 



4-100* 5-21 6-20* 7-19 7-42* 27-9 27-12* 27-14 
6-19* 7-16 17-25* 
16-30 

8-20* 
18-75 
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. . . CMi 


7-28 


18-75 


. . . CM2 


7-28 


7-28 


. . . CMS 


7-28 


7-30 


. . CM7 


7-28 


18-75 


. PRINT 


1-15# 


7-30 


. READW 


1-15# 


18-75 


. WRITW 


1-15# 


7-28 


DISABL 


l-22# 


3-54 


ENABL 


l-26# 


3-58 




19-39 


20-48 


OCALL 


l-32# 


3-42 



7-28 
18-75 



3-88 

3-97 

22-19 

4-83 



7-28 



18-75 



18-75 



18-75 



18-75 



9-7 


10-13 


11-10 


13-9 


9-83 


9-126 


9-147 


10-45 


22-21 








9-113 









19-27 
10-89 



20-11 
11-23 



13-19 



13-58 



13-65 



